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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ed06af2..f422a97 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+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.

diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el
index 10623db..9abb0c8 100644 (file)
--- 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)