Commit 1a32899d authored by Glenn Morris's avatar Glenn Morris
Browse files

Remove unnecessary eval-when-compiles and eval-and-compiles.

parent 966bd7bd
......@@ -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'."
......
......@@ -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)
......
......@@ -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."
......
......@@ -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))
......
;;; 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 <johnw@gnu.org>
......@@ -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.
......
;;; 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 <johnw@gnu.org>
......@@ -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."
......
;;; 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 <johnw@gnu.org>
......@@ -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'.
......
;;; 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 <johnw@gnu.org>
......@@ -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."
......
;;; 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 <johnw@gnu.org>
......@@ -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'."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment