diff options
| author | Richard M. Stallman | 1997-08-27 06:47:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-27 06:47:51 +0000 |
| commit | a08bd820d4cc244545228e8ec14733cd09e9ae27 (patch) | |
| tree | f4cbf57062372b4cd6bfce8e85189b7de375d9b5 | |
| parent | 1ffece3a395a51200dab005bc63e1eaca22854f2 (diff) | |
| download | emacs-a08bd820d4cc244545228e8ec14733cd09e9ae27.tar.gz emacs-a08bd820d4cc244545228e8ec14733cd09e9ae27.zip | |
(forms-read-only): Un-customize, and doc fix.
| -rw-r--r-- | lisp/forms.el | 12 |
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)." | 332 | This 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" "\ |
| 337 | If not nil: use this character to separate multi-line fields (default C-k).") | 335 | If not nil: use this character to separate multi-line fields (default C-k).") |