(find-file-noselect): If after-find-file switches buffers,

[gnu-emacs] / lisp / forms.el

diff --git a/lisp/forms.el b/lisp/forms.el
index c82c822ec30650a3e65e394c70ca1ac112dc94bd..aa20ecd561ff38e1ec9284f50b9ceea7fd0c65da 100644 (file)
--- 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.25 $" 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.25 1996/01/14 07:34:30 erik 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.")
@@ -669,8 +669,8 @@ Commands:                        Equivalent keys in read-only mode:
        (insert 
         "GNU Emacs Forms Mode version " forms-version "\n\n"
         (if (file-exists-p forms-file)
-            (concat "No records available in file \"" forms-file "\".\n\n")
-          (format "Creating new file \"%s\"\nwith %d field%s per record.\n\n"
+            (concat "No records available in file `" forms-file "'\n\n")
+          (format "Creating new file `%s'\nwith %d field%s per record\n\n"
                   forms-file forms-number-of-fields
                   (if (= 1 forms-number-of-fields) "" "s")))
         "Use " (substitute-command-keys "\\[forms-insert-record]")
@@ -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)))
@@ -1724,7 +1724,7 @@ Otherwise enables edit mode if the visited file is writable."
              buffer-read-only)
            (progn
              (setq forms-read-only t)
-             (message "No write access to \"%s\"" forms-file)
+             (message "No write access to `%s'" forms-file)
              (beep))
          (setq forms-read-only nil))
        (if (equal ro forms-read-only)
@@ -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 "\"%s\" not found." regexp)
+               (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 "\"%s\" not found." regexp)
+               (message "\"%s\" not found" regexp)
                nil)
            (setq the-record (forms--get-record))
            (setq the-line (1+ (count-lines (point-min) (point))))))