mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 14:40:54 -08:00
Code Issues Projects Releases Wiki Activity

(forms-mode): Set visited file name to nil to prevent overwrite and autosave.

Browse source 
The previous method didn't go far enough.
This commit is contained in:
Karl Heuer 1994-05-07 01:52:42 +00:00
parent f86f73c33d
commit 724244d233
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/forms.el
View file

@ -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)