Mercurial > emacs

comparison lisp/locate.el @ 83395:b31326248cf6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from miles@gnu.org--gnu-2005 (patch 142-148, 615-628) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-615 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-616 Add lisp/mh-e/.arch-inventory * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-617 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-618 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-619 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-620 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-621 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-622 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-623 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-624 Update from CVS: lisp/smerge-mode.el: Add 'tools' to file keywords. * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-625 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-626 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-627 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-628 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-142 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-143 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-144 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-145 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-146 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-147 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-148 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-435
author Karoly Lorentey <lorentey@elte.hu>
date Tue, 01 Nov 2005 06:23:08 +0000
parents fda96ff4c7e5
children 3ff7903b19d7
comparison
equal deleted inserted replaced
83394:7d093d9d4479 83395:b31326248cf6
374 selective-display t) 374 selective-display t)
375 (dired-alist-add-1 default-directory (point-min-marker)) 375 (dired-alist-add-1 default-directory (point-min-marker))
376 (set (make-local-variable 'dired-directory) "/") 376 (set (make-local-variable 'dired-directory) "/")
377 (set (make-local-variable 'dired-subdir-switches) locate-ls-subdir-switches) 377 (set (make-local-variable 'dired-subdir-switches) locate-ls-subdir-switches)
378 (setq dired-switches-alist nil) 378 (setq dired-switches-alist nil)
379 (make-local-variable 'dired-move-to-filename-regexp) 379 (make-local-variable 'directory-listing-before-filename-regexp)
380 ;; This should support both Unix and Windoze style names 380 ;; This should support both Unix and Windoze style names
381 (setq dired-move-to-filename-regexp 381 (setq directory-listing-before-filename-regexp
382 (concat "^." 382 (concat "^."
383 (make-string (1- locate-filename-indentation) ?\ ) 383 (make-string (1- locate-filename-indentation) ?\ )
384 "\\(/\\|[A-Za-z]:\\)\\|" 384 "\\(/\\|[A-Za-z]:\\)\\|"
385 (default-value 'dired-move-to-filename-regexp))) 385 (default-value 'directory-listing-before-filename-regexp)))
386 (make-local-variable 'dired-actual-switches) 386 (make-local-variable 'dired-actual-switches)
387 (setq dired-actual-switches "") 387 (setq dired-actual-switches "")
388 (make-local-variable 'dired-permission-flags-regexp) 388 (make-local-variable 'dired-permission-flags-regexp)
389 (setq dired-permission-flags-regexp 389 (setq dired-permission-flags-regexp
390 (concat "^.\\(" 390 (concat "^.\\("