aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPavel Janík2002-02-16 09:42:11 +0000
committerPavel Janík2002-02-16 09:42:11 +0000
commit252bfbdc9aee3bf968a214425dd4790107d4532d (patch)
tree49e26f379cd0738567156244b5ead187525aed3a
parentff33c23537d05e547931f066c3144c4dee09fe19 (diff)
downloademacs-252bfbdc9aee3bf968a214425dd4790107d4532d.tar.gz
emacs-252bfbdc9aee3bf968a214425dd4790107d4532d.zip
(eshell-cmd-initialize): Do not use make-local-hook.
-rw-r--r--lisp/eshell/esh-cmd.el4
1 files changed, 0 insertions, 4 deletions
diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el
index 7793f87e4eb..04a01f1234e 100644
--- a/lisp/eshell/esh-cmd.el
+++ b/lisp/eshell/esh-cmd.el
@@ -295,28 +295,24 @@ command line.")
295 (set (make-local-variable 'eshell-last-command-name) nil) 295 (set (make-local-variable 'eshell-last-command-name) nil)
296 (set (make-local-variable 'eshell-last-async-proc) nil) 296 (set (make-local-variable 'eshell-last-async-proc) nil)
297 297
298 (make-local-hook 'eshell-kill-hook)
299 (add-hook 'eshell-kill-hook 'eshell-resume-command nil t) 298 (add-hook 'eshell-kill-hook 'eshell-resume-command nil t)
300 299
301 ;; make sure that if a command is over, and no process is being 300 ;; make sure that if a command is over, and no process is being
302 ;; waited for, that `eshell-current-command' is set to nil. This 301 ;; waited for, that `eshell-current-command' is set to nil. This
303 ;; situation can occur, for example, if a Lisp function results in 302 ;; situation can occur, for example, if a Lisp function results in
304 ;; `debug' being called, and the user then types \\[top-level] 303 ;; `debug' being called, and the user then types \\[top-level]
305 (make-local-hook 'eshell-post-command-hook)
306 (add-hook 'eshell-post-command-hook 304 (add-hook 'eshell-post-command-hook
307 (function 305 (function
308 (lambda () 306 (lambda ()
309 (setq eshell-current-command nil 307 (setq eshell-current-command nil
310 eshell-last-async-proc nil))) nil t) 308 eshell-last-async-proc nil))) nil t)
311 309
312 (make-local-hook 'eshell-parse-argument-hook)
313 (add-hook 'eshell-parse-argument-hook 310 (add-hook 'eshell-parse-argument-hook
314 'eshell-parse-subcommand-argument nil t) 311 'eshell-parse-subcommand-argument nil t)
315 (add-hook 'eshell-parse-argument-hook 312 (add-hook 'eshell-parse-argument-hook
316 'eshell-parse-lisp-argument nil t) 313 'eshell-parse-lisp-argument nil t)
317 314
318 (when (eshell-using-module 'eshell-cmpl) 315 (when (eshell-using-module 'eshell-cmpl)
319 (make-local-hook 'pcomplete-try-first-hook)
320 (add-hook 'pcomplete-try-first-hook 316 (add-hook 'pcomplete-try-first-hook
321 'eshell-complete-lisp-symbols nil t))) 317 'eshell-complete-lisp-symbols nil t)))
322 318