Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 04:47:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(dired-insert-set-properties): Add new text property

Browse source 
`dired-filename' to put on file names.
(dired-mode-map): Bind `M-s f C-s' to `dired-isearch-filenames'
and `M-s f M-C-s' to `dired-isearch-filenames-regexp'.
Add menu items.
(dired-mode): Add hook `dired-isearch-filenames-setup' to
buffer-local `isearch-mode-hook'.
This commit is contained in:
Juri Linkov 2008-07-29 14:42:07 +00:00
parent 32b1a27f28
commit eae2c85eec
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/dired.el
View file

@ -1068,6 +1068,7 @@ If HDR is non-nil, insert a header line with the directory name."
(dired-move-to-end-of-filename)
(point))
'(mouse-face highlight
dired-filename t
help-echo "mouse-2: visit this file in other window")))
(error nil))
(forward-line 1))))
@ -1298,6 +1299,8 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST."
;; isearch
(define-key map (kbd "M-s a C-s") 'dired-do-isearch)
(define-key map (kbd "M-s a M-C-s") 'dired-do-isearch-regexp)
(define-key map (kbd "M-s f C-s") 'dired-isearch-filenames)
(define-key map (kbd "M-s f M-C-s") 'dired-isearch-filenames-regexp)
;; misc
(define-key map "\C-x\C-q" 'dired-toggle-read-only)
(define-key map "?" 'dired-summary)
@ -1409,6 +1412,12 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST."
(define-key map [menu-bar immediate dashes]
'("--"))
(define-key map [menu-bar immediate isearch-filenames-regexp]
'(menu-item "Isearch Regexp in File Names..." dired-isearch-filenames-regexp
:help "Incrementally search for regexp in file names only"))
(define-key map [menu-bar immediate isearch-filenames]
'(menu-item "Isearch in File Names..." dired-isearch-filenames
:help "Incrementally search for string in file names only."))
(define-key map [menu-bar immediate compare-directories]
'(menu-item "Compare Directories..." dired-compare-directories
:help "Mark files with different attributes in two dired buffers"))
@ -1723,6 +1732,7 @@ Keybindings:
(when (featurep 'dnd)
(set (make-local-variable 'dnd-protocol-alist)
(append dired-dnd-protocol-alist dnd-protocol-alist)))
(add-hook 'isearch-mode-hook 'dired-isearch-filenames-setup nil t)
(run-mode-hooks 'dired-mode-hook))
;; Idiosyncratic dired commands that don't deal with marks.