[Emacs-diffs] /srv/bzr/emacs/trunk r103973: lisp/eshell/esh-mode.el (find-tag-interactive): Small cleanup.

[Juanma Barranquero]

------------------------------------------------------------
revno: 103973
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Fri 2011-04-22 22:15:21 +0200
message:
  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'.
modified:
  lisp/ChangeLog
  lisp/eshell/esh-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-04-22 18:44:26 +0000
+++ b/lisp/ChangeLog    2011-04-22 20:15:21 +0000
@@ -1,5 +1,11 @@
 2011-04-22  Juanma Barranquero  <address@hidden>
 
+       * 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  <address@hidden>
+
        Lexical-binding cleanup.
 
        * progmodes/ada-mode.el (ada-after-change-function, ada-loose-case-word)

=== modified file 'lisp/eshell/esh-mode.el'
--- a/lisp/eshell/esh-mode.el   2011-03-05 20:07:27 +0000
+++ b/lisp/eshell/esh-mode.el   2011-04-22 20:15:21 +0000
@@ -497,6 +497,8 @@
       (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 @@
   (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)