Mercurial > emacs
comparison lisp/eshell/em-dirs.el @ 43327:75975b4cc75c
(eshell-dirs-initialize): Do not use make-local-hook.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Sat, 16 Feb 2002 09:38:26 +0000 |
| parents | 67b464da13ec |
| children | 6303529069a9 |
comparison
equal
deleted
inserted
replaced
| 43326:e72420b8d34f | 43327:75975b4cc75c |
|---|---|
| 209 (setq eshell-interpreter-alist | 209 (setq eshell-interpreter-alist |
| 210 (cons (cons 'eshell-lone-directory-p | 210 (cons (cons 'eshell-lone-directory-p |
| 211 'eshell-dirs-substitute-cd) | 211 'eshell-dirs-substitute-cd) |
| 212 eshell-interpreter-alist))) | 212 eshell-interpreter-alist))) |
| 213 | 213 |
| 214 (make-local-hook 'eshell-parse-argument-hook) | |
| 215 (add-hook 'eshell-parse-argument-hook | 214 (add-hook 'eshell-parse-argument-hook |
| 216 'eshell-parse-user-reference nil t) | 215 'eshell-parse-user-reference nil t) |
| 217 (if (eshell-under-windows-p) | 216 (if (eshell-under-windows-p) |
| 218 (add-hook 'eshell-parse-argument-hook | 217 (add-hook 'eshell-parse-argument-hook |
| 219 'eshell-parse-drive-letter nil t)) | 218 'eshell-parse-drive-letter nil t)) |
| 220 | 219 |
| 221 (when (eshell-using-module 'eshell-cmpl) | 220 (when (eshell-using-module 'eshell-cmpl) |
| 222 (make-local-hook 'pcomplete-try-first-hook) | |
| 223 (add-hook 'pcomplete-try-first-hook | 221 (add-hook 'pcomplete-try-first-hook |
| 224 'eshell-complete-user-reference nil t)) | 222 'eshell-complete-user-reference nil t)) |
| 225 | 223 |
| 226 (make-local-variable 'eshell-dirstack) | 224 (make-local-variable 'eshell-dirstack) |
| 227 (make-local-variable 'eshell-last-dir-ring) | 225 (make-local-variable 'eshell-last-dir-ring) |
| 229 (if eshell-last-dir-ring-file-name | 227 (if eshell-last-dir-ring-file-name |
| 230 (eshell-read-last-dir-ring)) | 228 (eshell-read-last-dir-ring)) |
| 231 (unless eshell-last-dir-ring | 229 (unless eshell-last-dir-ring |
| 232 (setq eshell-last-dir-ring (make-ring eshell-last-dir-ring-size))) | 230 (setq eshell-last-dir-ring (make-ring eshell-last-dir-ring-size))) |
| 233 | 231 |
| 234 (make-local-hook 'eshell-exit-hook) | |
| 235 (add-hook 'eshell-exit-hook 'eshell-write-last-dir-ring nil t) | 232 (add-hook 'eshell-exit-hook 'eshell-write-last-dir-ring nil t) |
| 236 | 233 |
| 237 (add-hook 'kill-emacs-hook 'eshell-save-some-last-dir)) | 234 (add-hook 'kill-emacs-hook 'eshell-save-some-last-dir)) |
| 238 | 235 |
| 239 (defun eshell-save-some-last-dir () | 236 (defun eshell-save-some-last-dir () |