comparison lisp/progmodes/compile.el @ 22307:57d1e5467c24

(grep): Fix previous change.

22306:6819832df39b

This command uses a special history list for its arguments, so you can
easily repeat a grep command.

A prefix argument says to default the argument based upon the current
tag the cursor is over."
  (interactive
   (let (grep-default)
     (when (and current-prefix-arg grep-history)
       (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 (car grep-history))
	 ;; Replace the thing matching for with that around cursor
	 (if (string-match "[^ ]+\\s +\\(-[^ ]+\\)*\\s *\\(\"[^\"]+\"\\|[^ ]+\\)" grep-default)
	     (setq grep-default (replace-match tag-default t t
					       grep-default 2)))))
     (list (read-from-minibuffer "Run grep (like this): "
				 (or grep-default grep-command)
				 nil nil 'grep-history))))

22307:57d1e5467c24

This command uses a special history list for its arguments, so you can
easily repeat a grep command.

A prefix argument says to default the argument based upon the current
tag the cursor is over, substituting it into the last grep command
in the grep command history (or into `grep-command'
if that history list is empty)."
  (interactive
   (let (grep-default (arg current-prefix-arg))
     (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))))
	 (setq grep-default (or (car grep-history) grep-command))
	 ;; Replace the thing matching for with that around cursor
	 (if (string-match "[^ ]+\\s +\\(-[^ ]+\\s +\\)*\\(\"[^\"]+\"\\|[^ ]+\\)" grep-default)
	     (setq grep-default (replace-match tag-default t t
					       grep-default 2)))))
     (list (read-from-minibuffer "Run grep (like this): "
				 (or grep-default grep-command)
				 nil nil 'grep-history))))