diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-29 23:15:25 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-29 23:15:25 +0000 |
| commit | 5cc7f7d64f63a0a27998443b29bcf8f864802fbd (patch) | |
| tree | 37674aff0f36045b707f4a49580a10958f718942 /lisp/forms.el | |
| parent | b0b3cce2dd18d3c94ec34a1fab6ee236d7cae1bf (diff) | |
| download | emacs-5cc7f7d64f63a0a27998443b29bcf8f864802fbd.tar.gz emacs-5cc7f7d64f63a0a27998443b29bcf8f864802fbd.tar.bz2 emacs-5cc7f7d64f63a0a27998443b29bcf8f864802fbd.zip | |
(forms--process-format-list): Fix error format string.
Diffstat (limited to 'lisp/forms.el')
| -rw-r--r-- | lisp/forms.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/forms.el b/lisp/forms.el index 32a0884a19c..aa20ecd561f 100644 --- a/lisp/forms.el +++ b/lisp/forms.el @@ -289,10 +289,10 @@ (provide 'forms) ;;; official (provide 'forms-mode) ;;; for compatibility -(defconst forms-version (substring "$Revision: 2.26 $" 11 -2) +(defconst forms-version (substring "$Revision: 2.27 $" 11 -2) "The version number of forms-mode (as string). The complete RCS id is: - $Id: forms.el,v 2.26 1996/01/25 00:54:17 kwzh Exp kwzh $") + $Id: forms.el,v 2.27 1996/01/25 06:16:34 kwzh Exp kwzh $") (defvar forms-mode-hooks nil "Hook functions to be run upon entering Forms mode.") @@ -774,8 +774,8 @@ Commands: Equivalent keys in read-only mode: ;; Validate. (or (fboundp (car-safe el)) (error (concat "Forms format error: " - "not a function " - (prin1-to-string (car-safe el))))) + "not a function %S") + (car-safe el))) ;; Shift. (if prev-item @@ -786,8 +786,8 @@ Commands: Equivalent keys in read-only mode: ;; else (t (error (concat "Forms format error: " - "invalid element " - (prin1-to-string el))))) + "invalid element %S") + el))) ;; Advance to next element of the list. (setq the-list rem))) |