From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 22 Apr 2011 20:15:21 +0000 (+0200)
Subject: lisp/eshell/esh-mode.el (find-tag-interactive): Small cleanup.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~215^2~40
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c2fb1b6051a9acd880d99954504dd94259628f19;p=emacs.git

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 ed06af250f6..f422a977ebe 100644
--- 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 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)