Mercurial > hg > xemacs-beta

comparison lisp/finder.el @ 410:de805c49cfc1 r21-2-35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-35
author cvs
date Mon, 13 Aug 2007 11:19:21 +0200
parents b8cc9ab3f761
children 697ef44129c6
comparison
equal deleted inserted replaced
409:301b9ebbdf3b 410:de805c49cfc1
148 ;; XEmacs change 148 ;; XEmacs change
149 (find-file "finder-inf.el") 149 (find-file "finder-inf.el")
150 (let ((processed nil) 150 (let ((processed nil)
151 (directory-abbrev-alist 151 (directory-abbrev-alist
152 (append 152 (append
153 (mapcar (function (lambda (dir) (cons dir ""))) 153 (mapcar (function (lambda (dir)
154 (cons (concat "^" (regexp-quote dir))
155 "")))
154 finder-abbreviate-directory-list) 156 finder-abbreviate-directory-list)
155 directory-abbrev-alist)) 157 directory-abbrev-alist))
156 (using-load-path)) 158 (using-load-path))
157 (or dirs (setq dirs load-path)) 159 (or dirs (setq dirs load-path))
158 (setq using-load-path (equal dirs load-path)) 160 (setq using-load-path (equal dirs load-path))