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'.

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)