mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

* iswitchb.el (iswitchb-completions): Revert last change.

Browse Source
This commit is contained in:
Chong Yidong 2010-02-10 04:19:32 -05:00
parent a8e4290b05
commit e6d23bb580
2 changed files with 9 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2010-02-10 Chong Yidong <cyd@stupidchicken.com>
* iswitchb.el (iswitchb-completions): Revert last change.
2010-02-10 Michael Albinus <michael.albinus@gmx.de>
* ls-lisp.el (ls-lisp-insert-directory): Wen WILDCARD-REGEXP and

25
lisp/iswitchb.el
View File

@ -1274,7 +1274,7 @@ Modified from `icomplete-completions'."
;; consult the list of past visited files, to see if we can find
;; the file which the user might thought was still open.
(when (and iswitchb-use-virtual-buffers (null comps)
(or recentf-list bookmark-alist))
recentf-list)
(setq iswitchb-virtual-buffers nil)
(let ((head recentf-list) name)
(while head
@ -1289,30 +1289,15 @@ Modified from `icomplete-completions'."
(setq iswitchb-virtual-buffers
(cons (cons name (car head))
iswitchb-virtual-buffers)))
(setq head (cdr head))))
(let ((head bookmark-alist) name path)
(while head
(if (and (setq path (cdr (assq 'filename (cdar head))))
(setq name (file-name-nondirectory path))
(string-match (if iswitchb-regexp
iswitchb-text
(regexp-quote iswitchb-text)) name)
(null (get-file-buffer path))
(not (assoc name iswitchb-virtual-buffers))
(not (iswitchb-ignore-buffername-p name))
(file-exists-p path))
(setq iswitchb-virtual-buffers
(cons (cons name path)
iswitchb-virtual-buffers)))
(setq head (cdr head))))
(setq iswitchb-virtual-buffers (nreverse iswitchb-virtual-buffers)
comps (mapcar 'car iswitchb-virtual-buffers))
(setq head (cdr head)))
(setq iswitchb-virtual-buffers (nreverse iswitchb-virtual-buffers)
comps (mapcar 'car iswitchb-virtual-buffers))
(let ((comp comps))
(while comp
(put-text-property 0 (length (car comp))
'face 'iswitchb-virtual-matches
(car comp))
(setq comp (cdr comp)))))
(setq comp (cdr comp))))))
(cond ((null comps) (format " %sNo match%s"
open-bracket-determined