mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

Fix compilation warning in esh-mode

Browse Source 
* lisp/eshell/esh-mode.el (eshell-mode): Remove special binding
for M-. in eshell buffers: The comment indicates that this is
outdated code.
(eshell-find-tag): Make obsolete.
This commit is contained in:
Lars Ingebrigtsen 2019-06-20 14:05:53 +02:00
parent 2c5a3f413b
commit 2396aea6fd
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/eshell/esh-mode.el
View File

@ -326,10 +326,6 @@ and the hook `eshell-exit-hook'."
(setq-local eshell-command-map (symbol-function eshell-command-prefix))
(define-key eshell-mode-map [(control ?c)] eshell-command-prefix)
;; without this, find-tag complains about read-only text being
;; modified
(if (eq (key-binding [(meta ?.)]) 'find-tag)
(define-key eshell-mode-map [(meta ?.)] 'eshell-find-tag))
(define-key eshell-command-map [(meta ?o)] 'eshell-mark-output)
(define-key eshell-command-map [(meta ?d)] 'eshell-toggle-direct-send)
@ -490,13 +486,15 @@ and the hook `eshell-exit-hook'."
(defun eshell-find-tag (&optional tagname next-p regexp-p)
"A special version of `find-tag' that ignores whether the text is read-only."
(declare (obsolete xref-find-definition "27.1"))
(interactive)
(require 'etags)
(let ((inhibit-read-only t)
(no-default (eobp))
(find-tag-default-function 'ignore))
(setq tagname (car (find-tag-interactive "Find tag: " no-default)))
(find-tag tagname next-p regexp-p)))
(with-suppressed-warnings ((obsolete find-tag))
(find-tag tagname next-p regexp-p))))
(defun eshell-move-argument (limit func property arg)
"Move forward ARG arguments."