From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 7 May 1994 01:52:42 +0000 (+0000)
Subject: (forms-mode): Set visited file name to nil to prevent overwrite and autosave.
X-Git-Tag: emacs-19.34~8472
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=724244d233e07e41b83c8697dbbfcadf09841cbb;p=emacs.git

(forms-mode): Set visited file name to nil to prevent overwrite and autosave.
The previous method didn't go far enough.
---

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)