Update ido-vertical-mode from package version 20160429.1037 to 20180618.2101
This commit is contained in:
parent
e1742a4d39
commit
2823f2876e
|
@ -5,7 +5,7 @@
|
||||||
;; Author: Steven Degutis
|
;; Author: Steven Degutis
|
||||||
;; Maintainer: Christopher Reichert <creichert07@gmail.com>
|
;; Maintainer: Christopher Reichert <creichert07@gmail.com>
|
||||||
;; Version: 1.0.0
|
;; Version: 1.0.0
|
||||||
;; Package-Version: 20160429.1037
|
;; Package-Version: 20180618.2101
|
||||||
;; Keywords: convenience
|
;; Keywords: convenience
|
||||||
;; URL: https://github.com/creichert/ido-vertical-mode.el
|
;; URL: https://github.com/creichert/ido-vertical-mode.el
|
||||||
|
|
||||||
|
@ -170,23 +170,22 @@ so we can restore it when turning `ido-vertical-mode' off")
|
||||||
;; Make a copy of [ido-matches], otherwise the selected string
|
;; Make a copy of [ido-matches], otherwise the selected string
|
||||||
;; could contain text properties which could lead to weird
|
;; could contain text properties which could lead to weird
|
||||||
;; artifacts, e.g. buffer-file-name having text properties.
|
;; artifacts, e.g. buffer-file-name having text properties.
|
||||||
(when (eq comps ido-matches)
|
(setq comps (cl-loop for comps-i being the elements of (if (eq comps ido-matches)
|
||||||
(setq comps (copy-sequence ido-matches)))
|
ido-matches
|
||||||
|
comps)
|
||||||
(dotimes (i ncomps)
|
do
|
||||||
(let ((comps-i (nth i comps)))
|
(setf comps-i (substring-no-properties
|
||||||
(setf comps-i
|
(if (listp comps-i)
|
||||||
(setf (nth i comps) (substring (if (listp comps-i)
|
(car comps-i)
|
||||||
(car comps-i)
|
comps-i)
|
||||||
comps-i)
|
0))
|
||||||
0)))
|
(when (string-match (if ido-enable-regexp name (regexp-quote name)) comps-i)
|
||||||
|
(ignore-errors
|
||||||
(when (string-match (if ido-enable-regexp name (regexp-quote name)) comps-i)
|
(add-face-text-property (match-beginning 0)
|
||||||
(ignore-errors
|
(match-end 0)
|
||||||
(add-face-text-property (match-beginning 0)
|
'ido-vertical-match-face
|
||||||
(match-end 0)
|
nil comps-i)))
|
||||||
'ido-vertical-match-face
|
collect comps-i))))
|
||||||
nil comps-i)))))))
|
|
||||||
|
|
||||||
(if (and ind ido-use-faces)
|
(if (and ind ido-use-faces)
|
||||||
(put-text-property 0 1 'face 'ido-indicator ind))
|
(put-text-property 0 1 'face 'ido-indicator ind))
|
||||||
|
|
Loading…
Reference in a new issue