diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-05-07 01:52:42 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-05-07 01:52:42 +0000 |
| commit | 6b3ce6abf5eaac57a7f7fd1700881d8ad2df100d (patch) | |
| tree | 101d01546a1ea3792db932ade94e570cb8033713 /lisp/forms.el | |
| parent | b02e2626a8f0ba86366c0bd805872ad1ac3d2827 (diff) | |
| download | emacs-6b3ce6abf5eaac57a7f7fd1700881d8ad2df100d.tar.gz | |
(forms-mode): Set visited file name to nil to prevent overwrite and autosave.
The previous method didn't go far enough.
Diffstat (limited to 'lisp/forms.el')
| -rw-r--r-- | lisp/forms.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/forms.el b/lisp/forms.el index d6ad21092a7..b86f9bd6448 100644 --- a/lisp/forms.el +++ b/lisp/forms.el @@ -2,7 +2,7 @@ ;;; Copyright (C) 1991, 1993 Free Software Foundation, Inc. ;; Author: Johan Vromans <jv@nl.net> -;; Version: $Revision: 2.3 $ +;; Version: $Revision: 2.4 $ ;; This file is part of GNU Emacs. @@ -266,10 +266,10 @@ (provide 'forms) ;;; official (provide 'forms-mode) ;;; for compatibility -(defconst forms-version (substring "$Revision: 2.3 $" 11 -2) +(defconst forms-version (substring "$Revision: 2.4 $" 11 -2) "The version number of forms-mode (as string). The complete RCS id is: - $Id: forms.el,v 2.3 1993/10/21 00:43:51 rms Exp kwzh $") + $Id: forms.el,v 2.4 1994/03/28 23:13:07 kwzh Exp kwzh $") (defvar forms-mode-hooks nil "Hook functions to be run upon entering Forms mode.") @@ -505,8 +505,7 @@ Commands: Equivalent keys in read-only mode: (make-local-variable 'forms--dynamic-text) ;; Prevent accidental overwrite of the control file and autosave. - (setq buffer-file-name nil) - (auto-save-mode nil) + (set-visited-file-name nil) ;; Prepare this buffer for further processing. (setq buffer-read-only nil) |