mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

* find-dired.el (find-name-arg): Remove autoload. (Bug#4387)

Browse Source 
* progmodes/grep.el (rgrep): Require `find-dired' for `find-name-arg'.
This commit is contained in:
Juri Linkov 2009-11-19 17:37:22 +00:00
parent e2b6892ea6
commit da205913b7
3 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2009-11-19 Juri Linkov <juri@jurta.org>
* find-dired.el (find-name-arg): Remove autoload. (Bug#4387)
* progmodes/grep.el (rgrep): Require `find-dired' for `find-name-arg'.
2009-11-19 Chong Yidong <cyd@stupidchicken.com>
* mail/sendmail.el (mail-yank-prefix): Change default to "> ".

2
lisp/find-dired.el
View File

@ -70,7 +70,7 @@ On other systems, the closest you can come is to use `-l'."
:type 'string
:group 'find-dired)
;;;###autoload
;; This used to be autoloaded (see bug#4387).
(defcustom find-name-arg
(purecopy (if read-file-name-completion-ignore-case
"-iname"

3
lisp/progmodes/grep.el
View File

@ -876,7 +876,7 @@ This command shares argument histories with \\[rgrep] and \\[grep]."
(setq default-directory dir))))))
(defvar find-name-arg) ; autoloaded
(defvar find-name-arg) ; not autoloaded but defined in find-dired
;;;###autoload
(defun rgrep (regexp &optional files dir confirm)
@ -917,6 +917,7 @@ This command shares argument histories with \\[lgrep] and \\[grep-find]."
(if (not (string= regexp grep-find-command))
(compilation-start regexp 'grep-mode))
(setq dir (file-name-as-directory (expand-file-name dir)))
(require 'find-dired) ; for `find-name-arg'
(let ((command (grep-expand-template
grep-find-template
regexp