emacs/lisp/locate.el

28 ;; Search a database of files and use dired commands on the result.
66 ;; you wish to find. You can use almost all of the dired commands in
95 ;;;;;;;; ADVICE For dired-make-relative: ;;;;;;;;;
97 ;; For certain dired commands to work right, you should also include the
100 ;; (defadvice dired-make-relative (before set-no-error activate)
107 ;; Otherwise, `dired-make-relative' will give error messages like
108 ;; "FILENAME: not in directory tree growing at /"
115   (require 'dired))
215   "The default directory from where `locate-update-command' is called.
336     (run-hooks 'dired-mode-hook)
337     (dired-next-line 3)			;move to first matching file.
375    (require 'dired)
377    (setq locate-mode-map (copy-keymap dired-mode-map))
384    (define-key locate-mode-map [menu-bar mark directory]   'undefined)
392    (define-key locate-mode-map "U"       'dired-unmark-all-files)
393    (define-key locate-mode-map "V"       'locate-find-directory)
461 ;; Default directory is set to "/" so that dired commands, which
466 In that buffer, you can use almost all the usual dired bindings.
467 \\[locate-find-directory] visits the directory of the file on the current line.
473 Specific `locate-mode' commands, such as \\[locate-find-directory],
480   (make-local-variable 'dired-subdir-alist)
484         default-directory   "/"
487   (dired-alist-add-1 default-directory (point-min-marker))
488   (set (make-local-variable 'dired-directory) "/")
489   (set (make-local-variable 'dired-subdir-switches) locate-ls-subdir-switches)
490   (setq dired-switches-alist nil)
491   (make-local-variable 'directory-listing-before-filename-regexp)
493   (setq directory-listing-before-filename-regexp
497 		(default-value 'directory-listing-before-filename-regexp)))
498   (make-local-variable 'dired-actual-switches)
499   (setq dired-actual-switches "")
500   (make-local-variable 'dired-permission-flags-regexp)
501   (setq dired-permission-flags-regexp
505 		(default-value 'dired-permission-flags-regexp)))
524     (locate-insert-header search-string)
527       (insert-char ?\s locate-filename-indentation t)
535       (dired-insert-set-properties (elt pos 0) (elt pos 1)))))
537 (defun locate-insert-header (search-string)
540   ;; would mistakenly fit `dired-subdir-regexp'.
575     (insert (apply 'format locate-format-string (reverse locate-format-args)))
611 	 ;; necessary.  It cannot be loaded when `default-directory'
613 	 (let ((default-directory (expand-file-name locate-update-path)))
617 ;;; Modified three functions from `dired.el':
618 ;;;   dired-find-directory,
619 ;;;   dired-find-directory-other-window
620 ;;;   dired-get-filename
622 (defun locate-find-directory ()
623   "Visit the directory of the file mentioned on this line."
626       (let ((directory-name (locate-get-dirname)))
627 	(if (file-directory-p directory-name)
628 	    (find-file directory-name)
629 	  (if (file-symlink-p directory-name)
634 (defun locate-find-directory-other-window ()
635   "Visit the directory of the file named on this line in other window."
648   "Return the directory name of the file mentioned on this line."
654 	  (setq file (file-name-directory file))
655 	  ;; Unquote names quoted by ls or by dired-insert-directory.
663 			 (or (dired-string-replace-match
699   "Like `dired-do-redisplay', but adapted for `*Locate*' buffers."
701   (if (string= (dired-current-directory) "/")
703     (let ((dired-actual-switches locate-ls-subdir-switches))
704       (dired-do-redisplay arg test-for-subdir))))