mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

(eshell-dirs-initialize): Do not use make-local-hook.

Browse Source
This commit is contained in:
Pavel Janík 2002-02-16 09:38:26 +00:00
parent 90100aac65
commit 35a3b29715
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/eshell/em-dirs.el
View File

@ -211,7 +211,6 @@ Thus, this does not include the current directory.")
'eshell-dirs-substitute-cd) 'eshell-dirs-substitute-cd)
eshell-interpreter-alist))) eshell-interpreter-alist)))
(make-local-hook 'eshell-parse-argument-hook)
(add-hook 'eshell-parse-argument-hook (add-hook 'eshell-parse-argument-hook
'eshell-parse-user-reference nil t) 'eshell-parse-user-reference nil t)
(if (eshell-under-windows-p) (if (eshell-under-windows-p)
@ -219,7 +218,6 @@ Thus, this does not include the current directory.")
'eshell-parse-drive-letter nil t)) 'eshell-parse-drive-letter nil t))
(when (eshell-using-module 'eshell-cmpl) (when (eshell-using-module 'eshell-cmpl)
(make-local-hook 'pcomplete-try-first-hook)
(add-hook 'pcomplete-try-first-hook (add-hook 'pcomplete-try-first-hook
'eshell-complete-user-reference nil t)) 'eshell-complete-user-reference nil t))
@ -231,7 +229,6 @@ Thus, this does not include the current directory.")
(unless eshell-last-dir-ring (unless eshell-last-dir-ring
(setq eshell-last-dir-ring (make-ring eshell-last-dir-ring-size))) (setq eshell-last-dir-ring (make-ring eshell-last-dir-ring-size)))
(make-local-hook 'eshell-exit-hook)
(add-hook 'eshell-exit-hook 'eshell-write-last-dir-ring nil t) (add-hook 'eshell-exit-hook 'eshell-write-last-dir-ring nil t)
(add-hook 'kill-emacs-hook 'eshell-save-some-last-dir)) (add-hook 'kill-emacs-hook 'eshell-save-some-last-dir))