diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2011-04-22 22:15:21 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-04-22 22:15:21 +0200 |
| commit | c2fb1b6051a9acd880d99954504dd94259628f19 (patch) | |
| tree | 668caeb5a27a9608ed152ca0e08fdae6bc1f6825 /lisp/eshell/esh-mode.el | |
| parent | e02f48d76bfd57f014ffbe3ba56b62f2d5ccc794 (diff) | |
| download | emacs-c2fb1b6051a9acd880d99954504dd94259628f19.tar.gz | |
lisp/eshell/esh-mode.el (find-tag-interactive): Small cleanup.
* eshell/esh-mode.el (find-tag-interactive): Declare function.
(eshell-find-tag): Remove `with-no-warnings', unneeded now.
Pass argument NO-DEFAULT to `find-tag-interactive'.
Diffstat (limited to 'lisp/eshell/esh-mode.el')
| -rw-r--r-- | lisp/eshell/esh-mode.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el index 10623dba8e3..9abb0c8ecc0 100644 --- a/lisp/eshell/esh-mode.el +++ b/lisp/eshell/esh-mode.el @@ -497,6 +497,8 @@ and the hook `eshell-exit-hook'." (if intercept (setq this-command 'eshell-self-insert-command))))) +(declare-function find-tag-interactive "etags" (prompt &optional no-default)) + (defun eshell-find-tag (&optional tagname next-p regexp-p) "A special version of `find-tag' that ignores read-onlyness." (interactive) @@ -504,8 +506,7 @@ and the hook `eshell-exit-hook'." (let ((inhibit-read-only t) (no-default (eobp)) (find-tag-default-function 'ignore)) - (with-no-warnings - (setq tagname (car (find-tag-interactive "Find tag: ")))) + (setq tagname (car (find-tag-interactive "Find tag: " no-default))) (find-tag tagname next-p regexp-p))) (defun eshell-move-argument (limit func property arg) |