Update ido-vertical-mode from package version 20160429.1037 to 20180618.2101

This commit is contained in:
Maximilian Wolff 2020-02-24 01:32:58 +01:00
parent e1742a4d39
commit 2823f2876e
No known key found for this signature in database
GPG Key ID: 2DD07025BFDBD89A
1 changed files with 17 additions and 18 deletions

View File

@ -5,7 +5,7 @@
;; Author: Steven Degutis
;; Maintainer: Christopher Reichert <creichert07@gmail.com>
;; Version: 1.0.0
;; Package-Version: 20160429.1037
;; Package-Version: 20180618.2101
;; Keywords: convenience
;; 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
;; could contain text properties which could lead to weird
;; artifacts, e.g. buffer-file-name having text properties.
(when (eq comps ido-matches)
(setq comps (copy-sequence ido-matches)))
(dotimes (i ncomps)
(let ((comps-i (nth i comps)))
(setf comps-i
(setf (nth i comps) (substring (if (listp comps-i)
(car comps-i)
comps-i)
0)))
(when (string-match (if ido-enable-regexp name (regexp-quote name)) comps-i)
(ignore-errors
(add-face-text-property (match-beginning 0)
(match-end 0)
'ido-vertical-match-face
nil comps-i)))))))
(setq comps (cl-loop for comps-i being the elements of (if (eq comps ido-matches)
ido-matches
comps)
do
(setf comps-i (substring-no-properties
(if (listp comps-i)
(car comps-i)
comps-i)
0))
(when (string-match (if ido-enable-regexp name (regexp-quote name)) comps-i)
(ignore-errors
(add-face-text-property (match-beginning 0)
(match-end 0)
'ido-vertical-match-face
nil comps-i)))
collect comps-i))))
(if (and ind ido-use-faces)
(put-text-property 0 1 'face 'ido-indicator ind))