]> git.eshelyaron.com Git - emacs.git/commitdiff
(eshell-cmd-initialize): Do not use make-local-hook.
authorPavel Janík <Pavel@Janik.cz>
Sat, 16 Feb 2002 09:42:11 +0000 (09:42 +0000)
committerPavel Janík <Pavel@Janik.cz>
Sat, 16 Feb 2002 09:42:11 +0000 (09:42 +0000)
lisp/eshell/esh-cmd.el

index 7793f87e4ebb42697afb403e5c1e732df6a53633..04a01f1234ec56ba6e5a003b50d5b03050efee60 100644 (file)
@@ -295,28 +295,24 @@ command line.")
   (set (make-local-variable 'eshell-last-command-name) nil)
   (set (make-local-variable 'eshell-last-async-proc) nil)
 
-  (make-local-hook 'eshell-kill-hook)
   (add-hook 'eshell-kill-hook 'eshell-resume-command nil t)
 
   ;; make sure that if a command is over, and no process is being
   ;; waited for, that `eshell-current-command' is set to nil.  This
   ;; situation can occur, for example, if a Lisp function results in
   ;; `debug' being called, and the user then types \\[top-level]
-  (make-local-hook 'eshell-post-command-hook)
   (add-hook 'eshell-post-command-hook
            (function
             (lambda ()
               (setq eshell-current-command nil
                     eshell-last-async-proc nil))) nil t)
 
-  (make-local-hook 'eshell-parse-argument-hook)
   (add-hook 'eshell-parse-argument-hook
            'eshell-parse-subcommand-argument nil t)
   (add-hook 'eshell-parse-argument-hook
            'eshell-parse-lisp-argument nil t)
 
   (when (eshell-using-module 'eshell-cmpl)
-    (make-local-hook 'pcomplete-try-first-hook)
     (add-hook 'pcomplete-try-first-hook
              'eshell-complete-lisp-symbols nil t)))