From c2fb1b6051a9acd880d99954504dd94259628f19 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 22 Apr 2011 22:15:21 +0200 Subject: [PATCH] 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'. --- lisp/ChangeLog | 6 ++++++ 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 + * 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 + 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) -- 2.11.4.GIT