mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

* progmodes/grep.el (grep-compute-defaults): Keep default values.

Browse source
This commit is contained in:
Michael Albinus 2007-07-22 19:59:30 +00:00
parent a9686d00fd
commit 2e2eead345
2 changed files with 35 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2007-07-22 Michael Albinus <michael.albinus@gmx.de>
* progmodes/grep.el (grep-compute-defaults): Keep default values.
2007-07-22 Ralf Angeli <angeli@caeruleus.net>
* textmodes/reftex.el (reftex-access-parse-file): Create parse

56
lisp/progmodes/grep.el
View file

@ -383,45 +383,51 @@ Set up `compilation-exit-message-function' and run `grep-setup-hook'."
;;;###autoload
(defun grep-compute-defaults ()
(let ((host-id
(intern (or (file-remote-p default-directory 'host) "localhost"))))
;; Keep default values.
(unless grep-host-defaults-alist
(add-to-list
'grep-host-defaults-alist
(cons nil
`((grep-command ,grep-command)
(grep-template ,grep-template)
(grep-use-null-device ,grep-use-null-device)
(grep-find-command ,grep-find-command)
(grep-find-template ,grep-find-template)
(grep-find-use-xargs ,grep-find-use-xargs)
(grep-highlight-matches ,grep-highlight-matches)))))
(let* ((host-id
(intern (or (file-remote-p default-directory 'host) "localhost")))
(host-defaults (assq host-id grep-host-defaults-alist))
(defaults (assq nil grep-host-defaults-alist)))
;; There are different defaults on different hosts. They must be
;; computed for every host once, then they are kept in the
;; variables' property host-id for reuse.
;; computed for every host once.
(setq grep-command
(or (cadr (assq 'grep-command
(assq host-id grep-host-defaults-alist)))
(eval (car (get 'grep-command 'standard-value))))
(or (cadr (assq 'grep-command host-defaults))
(cadr (assq 'grep-command defaults)))
grep-template
(or (cadr (assq 'grep-template
(assq host-id grep-host-defaults-alist)))
(eval (car (get 'grep-template 'standard-value))))
(or (cadr (assq 'grep-template host-defaults))
(cadr (assq 'grep-template defaults)))
grep-use-null-device
(or (cadr (assq 'grep-use-null-device
(assq host-id grep-host-defaults-alist)))
(eval (car (get 'grep-use-null-device 'standard-value))))
(or (cadr (assq 'grep-use-null-device host-defaults))
(cadr (assq 'grep-use-null-device defaults)))
grep-find-command
(or (cadr (assq 'grep-find-command
(assq host-id grep-host-defaults-alist)))
(eval (car (get 'grep-find-command 'standard-value))))
(or (cadr (assq 'grep-find-command host-defaults))
(cadr (assq 'grep-find-command defaults)))
grep-find-template
(or (cadr (assq 'grep-find-template
(assq host-id grep-host-defaults-alist)))
(eval (car (get 'grep-find-template 'standard-value))))
(or (cadr (assq 'grep-find-template host-defaults))
(cadr (assq 'grep-find-template defaults)))
grep-find-use-xargs
(or (cadr (assq 'grep-find-use-xargs
(assq host-id grep-host-defaults-alist)))
(eval (car (get 'grep-find-use-xargs 'standard-value))))
(or (cadr (assq 'grep-find-use-xargs host-defaults))
(cadr (assq 'grep-find-use-xargs defaults)))
grep-highlight-matches
(or (cadr (assq 'grep-highlight-matches
(assq host-id grep-host-defaults-alist)))
(eval (car (get 'grep-highlight-matches 'standard-value)))))
(or (cadr (assq 'grep-highlight-matches host-defaults))
(cadr (assq 'grep-highlight-matches defaults))))
(unless (or (not grep-use-null-device) (eq grep-use-null-device t))
(setq grep-use-null-device