Mercurial > emacs
comparison lisp/forms.el @ 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 | 0c88041fc50a |
| children | 6bd77cce44a6 |
comparison
equal
deleted
inserted
replaced
| 14420:071f9717597f | 14421:319064f5de2e |
|---|---|
| 287 ;;; Global variables and constants: | 287 ;;; Global variables and constants: |
| 288 | 288 |
| 289 (provide 'forms) ;;; official | 289 (provide 'forms) ;;; official |
| 290 (provide 'forms-mode) ;;; for compatibility | 290 (provide 'forms-mode) ;;; for compatibility |
| 291 | 291 |
| 292 (defconst forms-version (substring "$Revision: 2.26 $" 11 -2) | 292 (defconst forms-version (substring "$Revision: 2.27 $" 11 -2) |
| 293 "The version number of forms-mode (as string). The complete RCS id is: | 293 "The version number of forms-mode (as string). The complete RCS id is: |
| 294 | 294 |
| 295 $Id: forms.el,v 2.26 1996/01/25 00:54:17 kwzh Exp kwzh $") | 295 $Id: forms.el,v 2.27 1996/01/25 06:16:34 kwzh Exp kwzh $") |
| 296 | 296 |
| 297 (defvar forms-mode-hooks nil | 297 (defvar forms-mode-hooks nil |
| 298 "Hook functions to be run upon entering Forms mode.") | 298 "Hook functions to be run upon entering Forms mode.") |
| 299 | 299 |
| 300 ;;; Mandatory variables - must be set by evaluating the control file. | 300 ;;; Mandatory variables - must be set by evaluating the control file. |
| 772 ((listp el) | 772 ((listp el) |
| 773 | 773 |
| 774 ;; Validate. | 774 ;; Validate. |
| 775 (or (fboundp (car-safe el)) | 775 (or (fboundp (car-safe el)) |
| 776 (error (concat "Forms format error: " | 776 (error (concat "Forms format error: " |
| 777 "not a function " | 777 "not a function %S") |
| 778 (prin1-to-string (car-safe el))))) | 778 (car-safe el))) |
| 779 | 779 |
| 780 ;; Shift. | 780 ;; Shift. |
| 781 (if prev-item | 781 (if prev-item |
| 782 (setq forms-format-list | 782 (setq forms-format-list |
| 783 (append forms-format-list (list prev-item) nil))) | 783 (append forms-format-list (list prev-item) nil))) |
| 784 (setq prev-item el)) | 784 (setq prev-item el)) |
| 785 | 785 |
| 786 ;; else | 786 ;; else |
| 787 (t | 787 (t |
| 788 (error (concat "Forms format error: " | 788 (error (concat "Forms format error: " |
| 789 "invalid element " | 789 "invalid element %S") |
| 790 (prin1-to-string el))))) | 790 el))) |
| 791 | 791 |
| 792 ;; Advance to next element of the list. | 792 ;; Advance to next element of the list. |
| 793 (setq the-list rem))) | 793 (setq the-list rem))) |
| 794 | 794 |
| 795 ;; Append last item. | 795 ;; Append last item. |