Mercurial > emacs
comparison lisp/eshell/esh-var.el @ 101347:d1ba3386e97a
Comment (header format fix).
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 22 Jan 2009 06:33:06 +0000 |
| parents | a9dc0e7c3f2b |
| children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
| 101346:99d8b439eca6 | 101347:d1ba3386e97a |
|---|---|
| 101 ;; /var/spool/mail $ | 101 ;; /var/spool/mail $ |
| 102 ;; | 102 ;; |
| 103 ;; '$_' refers to the last argument of the last command. And $? | 103 ;; '$_' refers to the last argument of the last command. And $? |
| 104 ;; contains the exit code of the last command (0 or 1 for Lisp | 104 ;; contains the exit code of the last command (0 or 1 for Lisp |
| 105 ;; functions, based on successful completion). | 105 ;; functions, based on successful completion). |
| 106 | |
| 107 ;;; Code: | |
| 106 | 108 |
| 107 (provide 'esh-var) | 109 (provide 'esh-var) |
| 108 | 110 |
| 109 (eval-when-compile | 111 (eval-when-compile |
| 110 (require 'pcomplete) | 112 (require 'pcomplete) |
| 649 (if (string-match "\\(:\\)[^:]*\\'" arg) | 651 (if (string-match "\\(:\\)[^:]*\\'" arg) |
| 650 (setq pos (match-end 1))) | 652 (setq pos (match-end 1))) |
| 651 (setq pcomplete-stub (substring arg pos)) | 653 (setq pcomplete-stub (substring arg pos)) |
| 652 (throw 'pcomplete-completions (pcomplete-entries))))) | 654 (throw 'pcomplete-completions (pcomplete-entries))))) |
| 653 | 655 |
| 654 ;;; Code: | |
| 655 | |
| 656 ;; arch-tag: 393654fe-bdad-4f27-9a10-b1472ded14cf | 656 ;; arch-tag: 393654fe-bdad-4f27-9a10-b1472ded14cf |
| 657 ;;; esh-var.el ends here | 657 ;;; esh-var.el ends here |