diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/eshell/esh-mode.el | 5 |
2 files changed, 9 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ed06af250f6..f422a977ebe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,11 @@ 2011-04-22 Juanma Barranquero <lekktu@gmail.com> + * 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'. + +2011-04-22 Juanma Barranquero <lekktu@gmail.com> + Lexical-binding cleanup. * progmodes/ada-mode.el (ada-after-change-function, ada-loose-case-word) 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) |