Mercurial > emacs

comparison lisp/eshell/esh-io.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 f79ec7c34dc5
comparison
equal deleted inserted replaced
95618:fc741047d17a 95619:45dbb3c749a6
1 ;;; esh-io.el --- I/O management 1 ;;; esh-io.el --- I/O management
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
378 378
379 (t 379 (t
380 (error "Invalid redirection target: %s" 380 (error "Invalid redirection target: %s"
381 (eshell-stringify target))))) 381 (eshell-stringify target)))))
382 382
383 (eval-when-compile 383 (defvar grep-null-device)
384 (defvar grep-null-device))
385 384
386 (defun eshell-set-output-handle (index mode &optional target) 385 (defun eshell-set-output-handle (index mode &optional target)
387 "Set handle INDEX, using MODE, to point to TARGET." 386 "Set handle INDEX, using MODE, to point to TARGET."
388 (when target 387 (when target
389 (if (and (stringp target) 388 (if (and (stringp target)