Mercurial > emacs

comparison lisp/eshell/esh-opt.el @ 95619:45dbb3c749a6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove unnecessary eval-when-compiles and eval-and-compiles.
author Glenn Morris <rgm@gnu.org>
date Sat, 07 Jun 2008 02:37:13 +0000
parents b5b0801a7637
children a9dc0e7c3f2b
comparison
equal deleted inserted replaced
95618:fc741047d17a 95619:45dbb3c749a6
1 ;;; esh-opt.el --- command options processing 1 ;;; esh-opt.el --- command options processing
2 2
3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. 4 ;; 2008 Free Software Foundation, Inc.
5 5
6 ;; Author: John Wiegley <johnw@gnu.org> 6 ;; Author: John Wiegley <johnw@gnu.org>
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
9 9
70 '(usage-msg last-value ext-command args)) 70 '(usage-msg last-value ext-command args))
71 (eshell-do-opt ,name ,options (quote ,body-forms))))) 71 (eshell-do-opt ,name ,options (quote ,body-forms)))))
72 72
73 ;;; Internal Functions: 73 ;;; Internal Functions:
74 74
75 (eval-when-compile 75 (defvar temp-args)
76 (defvar temp-args) 76 (defvar last-value)
77 (defvar last-value) 77 (defvar usage-msg)
78 (defvar usage-msg) 78 (defvar ext-command)
79 (defvar ext-command) 79 (defvar args)
80 (defvar args))
81 80
82 (defun eshell-do-opt (name options body-forms) 81 (defun eshell-do-opt (name options body-forms)
83 "Helper function for `eshell-eval-using-options'. 82 "Helper function for `eshell-eval-using-options'.
84 This code doesn't really need to be macro expanded everywhere." 83 This code doesn't really need to be macro expanded everywhere."
85 (setq args temp-args) 84 (setq args temp-args)