From: Glenn Morris Date: Sat, 7 Jun 2008 02:37:13 +0000 (+0000) Subject: Remove unnecessary eval-when-compiles and eval-and-compiles. X-Git-Tag: emacs-pretest-23.0.90~5048 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a32899de36b245916e553a7fda8ab37fea6fc1e;p=emacs.git Remove unnecessary eval-when-compiles and eval-and-compiles. --- diff --git a/lisp/eshell/em-dirs.el b/lisp/eshell/em-dirs.el index 9977cd0c35c..034dac4dca7 100644 --- a/lisp/eshell/em-dirs.el +++ b/lisp/eshell/em-dirs.el @@ -341,8 +341,7 @@ in the minibuffer: index (1+ index))))) oldpath)) -(eval-when-compile - (defvar dired-directory)) +(defvar dired-directory) (defun eshell/cd (&rest args) ; all but first ignored "Alias to extend the behavior of `cd'." diff --git a/lisp/eshell/em-glob.el b/lisp/eshell/em-glob.el index 319e2b4057d..6de0e89121e 100644 --- a/lisp/eshell/em-glob.el +++ b/lisp/eshell/em-glob.el @@ -260,9 +260,8 @@ the form: (error "No matches found: %s" glob) glob)))) -(eval-when-compile - (defvar matches) - (defvar message-shown)) +(defvar matches) +(defvar message-shown) ;; FIXME does this really need to abuse matches, message-shown? (defun eshell-glob-entries (path globs &optional recurse-p) diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el index 4d9bea58cef..db256bd8c9d 100644 --- a/lisp/eshell/em-ls.el +++ b/lisp/eshell/em-ls.el @@ -303,24 +303,23 @@ instead." (put 'eshell/ls 'eshell-no-numeric-conversions t) -(eval-when-compile - (defvar block-size) - (defvar dereference-links) - (defvar dir-literal) - (defvar error-func) - (defvar flush-func) - (defvar human-readable) - (defvar ignore-pattern) - (defvar insert-func) - (defvar listing-style) - (defvar numeric-uid-gid) - (defvar reverse-list) - (defvar show-all) - (defvar show-recursive) - (defvar show-size) - (defvar sort-method) - (defvar ange-cache) - (defvar dired-flag)) +(defvar block-size) +(defvar dereference-links) +(defvar dir-literal) +(defvar error-func) +(defvar flush-func) +(defvar human-readable) +(defvar ignore-pattern) +(defvar insert-func) +(defvar listing-style) +(defvar numeric-uid-gid) +(defvar reverse-list) +(defvar show-all) +(defvar show-recursive) +(defvar show-size) +(defvar sort-method) +(defvar ange-cache) +(defvar dired-flag) (defun eshell-do-ls (&rest args) "Implementation of \"ls\" in Lisp, passing ARGS." diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el index 6d8515bc22c..10e767745be 100644 --- a/lisp/eshell/em-unix.el +++ b/lisp/eshell/em-unix.el @@ -152,11 +152,10 @@ Otherwise, Emacs will attempt to use rsh to invoke du on the remote machine." (defalias 'eshell/basename 'file-name-nondirectory) (defalias 'eshell/dirname 'file-name-directory) -(eval-when-compile - (defvar interactive) - (defvar preview) - (defvar recursive) - (defvar verbose)) +(defvar interactive) +(defvar preview) +(defvar recursive) +(defvar verbose) (defun eshell/man (&rest args) "Invoke man, flattening the arguments appropriately." @@ -337,10 +336,9 @@ Remove the DIRECTORY(ies), if they are empty.") (put 'eshell/rmdir 'eshell-no-numeric-conversions t) -(eval-when-compile - (defvar no-dereference) - (defvar preview) - (defvar verbose)) +(defvar no-dereference) +(defvar preview) +(defvar verbose) (defvar eshell-warn-dot-directories t) @@ -803,15 +801,14 @@ external command." (defalias 'pcomplete/ssh 'pcomplete/rsh) -(eval-when-compile - (defvar block-size) - (defvar by-bytes) - (defvar dereference-links) - (defvar grand-total) - (defvar human-readable) - (defvar max-depth) - (defvar only-one-filesystem) - (defvar show-all)) +(defvar block-size) +(defvar by-bytes) +(defvar dereference-links) +(defvar grand-total) +(defvar human-readable) +(defvar max-depth) +(defvar only-one-filesystem) +(defvar show-all) (defsubst eshell-du-size-string (size) (let* ((str (eshell-printable-size size human-readable block-size t)) diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el index c28ba970c41..1c75eca28ee 100644 --- a/lisp/eshell/esh-cmd.el +++ b/lisp/eshell/esh-cmd.el @@ -1,7 +1,7 @@ ;;; esh-cmd.el --- command invocation -;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008 Free Software Foundation, Inc. ;; Author: John Wiegley @@ -477,9 +477,8 @@ hooks should be run before and after the command." "Execute named command" (eshell-command-result-p "+ 1 2" "3\n")) -(eval-when-compile - (defvar eshell-command-body) - (defvar eshell-test-body)) +(defvar eshell-command-body) +(defvar eshell-test-body) (defsubst eshell-invokify-arg (arg &optional share-output silent) "Change ARG so it can be invoked from a structured command. diff --git a/lisp/eshell/esh-io.el b/lisp/eshell/esh-io.el index 276ecf107c1..052301013c2 100644 --- a/lisp/eshell/esh-io.el +++ b/lisp/eshell/esh-io.el @@ -1,7 +1,7 @@ ;;; esh-io.el --- I/O management -;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008 Free Software Foundation, Inc. ;; Author: John Wiegley @@ -380,8 +380,7 @@ it defaults to `insert'." (error "Invalid redirection target: %s" (eshell-stringify target))))) -(eval-when-compile - (defvar grep-null-device)) +(defvar grep-null-device) (defun eshell-set-output-handle (index mode &optional target) "Set handle INDEX, using MODE, to point to TARGET." diff --git a/lisp/eshell/esh-opt.el b/lisp/eshell/esh-opt.el index 8f8fb9b8a72..a16a484110b 100644 --- a/lisp/eshell/esh-opt.el +++ b/lisp/eshell/esh-opt.el @@ -1,7 +1,7 @@ ;;; esh-opt.el --- command options processing -;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008 Free Software Foundation, Inc. ;; Author: John Wiegley @@ -72,12 +72,11 @@ interned variable `args' (created using a `let' form)." ;;; Internal Functions: -(eval-when-compile - (defvar temp-args) - (defvar last-value) - (defvar usage-msg) - (defvar ext-command) - (defvar args)) +(defvar temp-args) +(defvar last-value) +(defvar usage-msg) +(defvar ext-command) +(defvar args) (defun eshell-do-opt (name options body-forms) "Helper function for `eshell-eval-using-options'. diff --git a/lisp/eshell/esh-test.el b/lisp/eshell/esh-test.el index 8884cadd8df..56b0a7dc322 100644 --- a/lisp/eshell/esh-test.el +++ b/lisp/eshell/esh-test.el @@ -1,7 +1,7 @@ ;;; esh-test.el --- Eshell test suite -;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008 Free Software Foundation, Inc. ;; Author: John Wiegley @@ -71,8 +71,7 @@ ;;; Code: -(eval-when-compile - (defvar test-buffer)) +(defvar test-buffer) (defun eshell-insert-command (text &optional func) "Insert a command at the end of the buffer." diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el index 95a14dba662..fa95c1561e6 100644 --- a/lisp/eshell/esh-util.el +++ b/lisp/eshell/esh-util.el @@ -1,7 +1,7 @@ ;;; esh-util.el --- general utilities -;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008 Free Software Foundation, Inc. ;; Author: John Wiegley @@ -593,8 +593,7 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable. (cons file (eshell-file-attributes (expand-file-name file directory))))) (directory-files directory full match nosort))))) -(eval-when-compile - (defvar ange-cache)) +(defvar ange-cache) (defun eshell-directory-files-and-attributes (dir &optional full match nosort) "Make sure to use the handler for `directory-file-and-attributes'."