procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(forms--help, forms-search-forward, forms-search-backward): Pass proper format string to message.

Browse source
This commit is contained in:
Karl Heuer 1996-01-25 00:54:17 +00:00
parent d8fb88d535
commit 5edb2df7d3
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/forms.el
View file

@ -289,10 +289,10 @@
(provide 'forms) ;;; official
(provide 'forms-mode) ;;; for compatibility
(defconst forms-version (substring "$Revision: 2.24 $" 11 -2)
(defconst forms-version (substring "$Revision: 2.25 $" 11 -2)
"The version number of forms-mode (as string). The complete RCS id is:
$Id: forms.el,v 2.24 1996/01/04 23:38:16 kwzh Exp erik $")
$Id: forms.el,v 2.25 1996/01/14 07:34:30 erik Exp kwzh $")
(defvar forms-mode-hooks nil
"Hook functions to be run upon entering Forms mode.")
@ -1415,7 +1415,7 @@ Commands: Equivalent keys in read-only mode:
(defun forms--help ()
"Initial help for Forms mode."
(message (substitute-command-keys (concat
(message "%s" (substitute-command-keys (concat
"\\[forms-next-record]:next"
" \\[forms-prev-record]:prev"
" \\[forms-first-record]:first"
@ -1833,7 +1833,7 @@ it is called to fill (some of) the fields with default values."
(if (null (re-search-forward regexp nil t))
(progn
(goto-char here)
(message (concat "\"" regexp "\" not found."))
(message "\"%s\" not found." regexp)
nil)
(setq the-record (forms--get-record))
(setq the-line (1+ (count-lines (point-min) (point))))))
@ -1865,7 +1865,7 @@ it is called to fill (some of) the fields with default values."
(if (null (re-search-backward regexp nil t))
(progn
(goto-char here)
(message (concat "\"" regexp "\" not found."))
(message "\"%s\" not found." regexp)
nil)
(setq the-record (forms--get-record))
(setq the-line (1+ (count-lines (point-min) (point))))))