aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1997-08-27 06:47:51 +0000
committerRichard M. Stallman1997-08-27 06:47:51 +0000
commita08bd820d4cc244545228e8ec14733cd09e9ae27 (patch)
treef4cbf57062372b4cd6bfce8e85189b7de375d9b5
parent1ffece3a395a51200dab005bc63e1eaca22854f2 (diff)
downloademacs-a08bd820d4cc244545228e8ec14733cd09e9ae27.tar.gz
emacs-a08bd820d4cc244545228e8ec14733cd09e9ae27.zip
(forms-read-only): Un-customize, and doc fix.
-rw-r--r--lisp/forms.el12
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/forms.el b/lisp/forms.el
index 669d188337a..1426d2eb292 100644
--- a/lisp/forms.el
+++ b/lisp/forms.el
@@ -296,10 +296,10 @@
296(provide 'forms) ;;; official 296(provide 'forms) ;;; official
297(provide 'forms-mode) ;;; for compatibility 297(provide 'forms-mode) ;;; for compatibility
298 298
299(defconst forms-version (substring "$Revision: 2.31 $" 11 -2) 299(defconst forms-version (substring "$Revision: 2.32 $" 11 -2)
300 "The version number of forms-mode (as string). The complete RCS id is: 300 "The version number of forms-mode (as string). The complete RCS id is:
301 301
302 $Id: forms.el,v 2.31 1997/06/11 21:07:22 rms Exp rms $") 302 $Id: forms.el,v 2.32 1997/08/19 04:55:58 rms Exp rms $")
303 303
304(defcustom forms-mode-hooks nil 304(defcustom forms-mode-hooks nil
305 "Hook functions to be run upon entering Forms mode." 305 "Hook functions to be run upon entering Forms mode."
@@ -327,11 +327,9 @@
327(defvar forms-field-sep "\t" 327(defvar forms-field-sep "\t"
328 "Field separator character (default TAB).") 328 "Field separator character (default TAB).")
329 329
330(defcustom forms-read-only nil 330(defvar forms-read-only nil
331 "*Non-nil means: visit the file in view (read-only) mode. 331 "Non-nil means: visit the file in view (read-only) mode.
332\(Default is to allow write access on the data file)." 332This is set automatically based on the file permissions.")
333 :group 'forms
334 :type 'boolean)
335 333
336(defvar forms-multi-line "\C-k" "\ 334(defvar forms-multi-line "\C-k" "\
337If not nil: use this character to separate multi-line fields (default C-k).") 335If not nil: use this character to separate multi-line fields (default C-k).")