# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 764896387 0
# Node ID eafeaeff6fa5db573f50bd263a18103b9efe7e90
# Parent  a071babfa9ea7b8db952aae6a6eb09315b14d307
(forms-mode): Set major mode before finding forms-file.  (This gives
the find-file-hook a way to detect that it's a forms-datafile.)

diff -r a071babfa9ea -r eafeaeff6fa5 lisp/forms.el
--- a/lisp/forms.el	Mon Mar 28 23:03:07 1994 +0000
+++ b/lisp/forms.el	Mon Mar 28 23:13:07 1994 +0000
@@ -2,7 +2,7 @@
 ;;; Copyright (C) 1991, 1993 Free Software Foundation, Inc.
 
 ;; Author: Johan Vromans <jv@nl.net>
-;; Version: $Revision: 2.4 $
+;; Version: $Revision: 2.3 $
 
 ;; 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.4 $" 11 -2)
+(defconst forms-version (substring "$Revision: 2.3 $" 11 -2)
   "The version number of forms-mode (as string).  The complete RCS id is:
 
-  $Id: forms.el,v 2.4 1993/10/20 20:39:47 jv Exp $")
+  $Id: forms.el,v 2.3 1993/10/21 00:43:51 rms Exp kwzh $")
 
 (defvar forms-mode-hooks nil
   "Hook functions to be run upon entering Forms mode.")
@@ -545,6 +545,10 @@
     ;;(message "forms: building keymap... done.")
     )
 
+  ;; set the major mode indicator
+  (setq major-mode 'forms-mode)
+  (setq mode-name "Forms")
+
   ;; find the data file
   (setq forms--file-buffer (find-file-noselect forms-file))
 
@@ -565,9 +569,6 @@
 	(setq forms-read-only t)))
 
   ;;(message "forms: proceeding setup...")
-  ;; set the major mode indicator
-  (setq major-mode 'forms-mode)
-  (setq mode-name "Forms")
 
   ;; Since we aren't really implementing a minor mode, we hack the modeline
   ;; directly to get the text " View " into forms-read-only form buffers.  For