Mercurial > emacs

comparison lisp/eshell/esh-opt.el @ 89489:6afa33e621d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(eshell-process-option): Use characterp.
author Dave Love <fx@gnu.org>
date Wed, 10 Sep 2003 17:52:03 +0000
parents 375f2633d815
children 68c22ea6027c
comparison
equal deleted inserted replaced
89488:9280279b6356 89489:6afa33e621d8
192 (let ((extcmd (memq ':external options))) 192 (let ((extcmd (memq ':external options)))
193 (when extcmd 193 (when extcmd
194 (setq extcmd (eshell-search-path (cadr extcmd))) 194 (setq extcmd (eshell-search-path (cadr extcmd)))
195 (if extcmd 195 (if extcmd
196 (throw 'eshell-ext-command extcmd) 196 (throw 'eshell-ext-command extcmd)
197 (if (char-valid-p switch) 197 (if (characterp switch)
198 (error "%s: unrecognized option -%c" name switch) 198 (error "%s: unrecognized option -%c" name switch)
199 (error "%s: unrecognized option --%s" name switch)))))))) 199 (error "%s: unrecognized option --%s" name switch))))))))
200 200
201 (defun eshell-process-args (name args options) 201 (defun eshell-process-args (name args options)
202 "Process the given ARGS using OPTIONS. 202 "Process the given ARGS using OPTIONS.