Commit c2fb1b60 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

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'.
parent e02f48d7
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.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment