mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

esh-opt comments.

Browse Source
This commit is contained in:
Glenn Morris 2010-11-10 20:11:33 -08:00
parent 2af05d6ecd
commit 5ca6733884
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/eshell/esh-opt.el
View File

@ -64,10 +64,9 @@ interned variable `args' (created using a `let' form)."
macro-args
(list 'eshell-stringify-list
(list 'eshell-flatten-list macro-args)))))
(let ,(append (mapcar (function
(lambda (opt)
(or (and (listp opt) (nth 3 opt))
'eshell-option-stub)))
(let ,(append (mapcar (lambda (opt)
(or (and (listp opt) (nth 3 opt))
'eshell-option-stub))
(cadr options))
'(usage-msg last-value ext-command args))
(eshell-do-opt ,name ,options (quote ,body-forms)))))
@ -78,6 +77,7 @@ interned variable `args' (created using a `let' form)."
(defvar last-value)
(defvar usage-msg)
(defvar ext-command)
;; Documented part of the interface; see eshell-eval-using-options.
(defvar args)
(defun eshell-do-opt (name options body-forms)
@ -224,5 +224,4 @@ This assumes that symbols have been intern'd by `eshell-with-options'."
(setq index (1+ index)))))))))
args)
;; arch-tag: 45c6c2d0-8091-46a1-a205-2f4bafd8230c
;;; esh-opt.el ends here