Mercurial > emacs
changeset 14421:319064f5de2e
(forms--process-format-list): Fix error format string.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 29 Jan 1996 23:15:25 +0000 |
| parents | 071f9717597f |
| children | a908a5d8a25d |
| files | lisp/forms.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/forms.el Mon Jan 29 23:14:52 1996 +0000 +++ b/lisp/forms.el Mon Jan 29 23:15:25 1996 +0000 @@ -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 @@ ;; 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 @@ ;; 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)))