Mercurial > emacs
comparison lisp/eshell/esh-opt.el @ 51642:17d4cef02d9b
(eshell-do-opt): Avoid variable as format
argument for error.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 22 Jun 2003 16:52:45 +0000 |
| parents | 67b464da13ec |
| children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
| 51641:24dc7642d792 | 51642:17d4cef02d9b |
|---|---|
| 1 ;;; esh-opt.el --- command options processing | 1 ;;; esh-opt.el --- command options processing |
| 2 | 2 |
| 3 ;; Copyright (C) 1999, 2000 Free Software Foundation | 3 ;; Copyright (C) 1999, 2000, 2003 Free Software Foundation |
| 4 | 4 |
| 5 ;; Author: John Wiegley <johnw@gnu.org> | 5 ;; Author: John Wiegley <johnw@gnu.org> |
| 6 | 6 |
| 7 ;; This file is part of GNU Emacs. | 7 ;; This file is part of GNU Emacs. |
| 8 | 8 |
| 96 (eshell-show-usage name options))) | 96 (eshell-show-usage name options))) |
| 97 (setq args (eshell-process-args name args options) | 97 (setq args (eshell-process-args name args options) |
| 98 last-value (eval (append (list 'progn) | 98 last-value (eval (append (list 'progn) |
| 99 body-forms))) | 99 body-forms))) |
| 100 nil)) | 100 nil)) |
| 101 (error usage-msg)))) | 101 (error "%s" usage-msg)))) |
| 102 (throw 'eshell-external | 102 (throw 'eshell-external |
| 103 (eshell-external-command ext-command args)) | 103 (eshell-external-command ext-command args)) |
| 104 last-value)) | 104 last-value)) |
| 105 | 105 |
| 106 (defun eshell-show-usage (name options) | 106 (defun eshell-show-usage (name options) |