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 |