/[emacs]/emacs/lisp/eshell/esh-cmd.el
ViewVC logotype

Diff of /emacs/lisp/eshell/esh-cmd.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by eliz, Sat Jan 26 12:05:22 2002 UTC revision 1.17 by pj, Sat Feb 16 09:42:11 2002 UTC
# Line 295  command line.") Line 295  command line.")
295    (set (make-local-variable 'eshell-last-command-name) nil)    (set (make-local-variable 'eshell-last-command-name) nil)
296    (set (make-local-variable 'eshell-last-async-proc) nil)    (set (make-local-variable 'eshell-last-async-proc) nil)
297    
   (make-local-hook 'eshell-kill-hook)  
298    (add-hook 'eshell-kill-hook 'eshell-resume-command nil t)    (add-hook 'eshell-kill-hook 'eshell-resume-command nil t)
299    
300    ;; make sure that if a command is over, and no process is being    ;; make sure that if a command is over, and no process is being
301    ;; waited for, that `eshell-current-command' is set to nil.  This    ;; waited for, that `eshell-current-command' is set to nil.  This
302    ;; situation can occur, for example, if a Lisp function results in    ;; situation can occur, for example, if a Lisp function results in
303    ;; `debug' being called, and the user then types \\[top-level]    ;; `debug' being called, and the user then types \\[top-level]
   (make-local-hook 'eshell-post-command-hook)  
304    (add-hook 'eshell-post-command-hook    (add-hook 'eshell-post-command-hook
305              (function              (function
306               (lambda ()               (lambda ()
307                 (setq eshell-current-command nil                 (setq eshell-current-command nil
308                       eshell-last-async-proc nil))) nil t)                       eshell-last-async-proc nil))) nil t)
309    
   (make-local-hook 'eshell-parse-argument-hook)  
310    (add-hook 'eshell-parse-argument-hook    (add-hook 'eshell-parse-argument-hook
311              'eshell-parse-subcommand-argument nil t)              'eshell-parse-subcommand-argument nil t)
312    (add-hook 'eshell-parse-argument-hook    (add-hook 'eshell-parse-argument-hook
313              'eshell-parse-lisp-argument nil t)              'eshell-parse-lisp-argument nil t)
314    
315    (when (eshell-using-module 'eshell-cmpl)    (when (eshell-using-module 'eshell-cmpl)
     (make-local-hook 'pcomplete-try-first-hook)  
316      (add-hook 'pcomplete-try-first-hook      (add-hook 'pcomplete-try-first-hook
317                'eshell-complete-lisp-symbols nil t)))                'eshell-complete-lisp-symbols nil t)))
318    

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26