mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

(grep): `tag-default' can be nil.

Browse Source
This commit is contained in:
Stefan Monnier 2000-11-14 19:30:53 +00:00
parent 25c269ef6e
commit 3f314699c3
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/progmodes/compile.el
View File

@ -609,20 +609,20 @@ if that history list is empty)."
(unless grep-command
(grep-compute-defaults))
(when arg
(let* ((tag-default
(funcall (or find-tag-default-function
(get major-mode 'find-tag-default-function)
;; We use grep-tag-default instead of
;; find-tag-default, to avoid loading etags.
'grep-tag-default))))
(let ((tag-default
(funcall (or find-tag-default-function
(get major-mode 'find-tag-default-function)
;; We use grep-tag-default instead of
;; find-tag-default, to avoid loading etags.
'grep-tag-default))))
(setq grep-default (or (car grep-history) grep-command))
;; Replace the thing matching for with that around cursor
(when (string-match "[^ ]+\\s +\\(-[^ ]+\\s +\\)*\\(\"[^\"]+\"\\|[^ ]+\\)\\(\\s-+\\S-+\\)?" grep-default)
(unless (or (match-beginning 3) (not (stringp buffer-file-name)))
(setq grep-default (concat grep-default "*."
(file-name-extension buffer-file-name))))
(setq grep-default (replace-match tag-default t t
grep-default 2)))))
(setq grep-default (replace-match (or tag-default "")
t t grep-default 2)))))
(list (read-from-minibuffer "Run grep (like this): "
(or grep-default grep-command)
nil nil 'grep-history))))