diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/forms.el | 25 |
1 files changed, 11 insertions, 14 deletions
diff --git a/lisp/forms.el b/lisp/forms.el index a2a296d78a1..e5ea04ea97d 100644 --- a/lisp/forms.el +++ b/lisp/forms.el @@ -1,8 +1,8 @@ ;;; forms.el -- Forms mode: edit a file as a form to fill in. ;;; Copyright (C) 1991, 1993 Free Software Foundation, Inc. -;; Author: Johan Vromans <jv@mh.nl> -;; Version: $Revision: 2.3 $ +;; Author: Johan Vromans <jv@nl.net> +;; 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/09/26 14:07:12 jv Exp $") + $Id: forms.el,v 2.4 1993/10/20 20:39:47 jv Exp $") (defvar forms-mode-hooks nil "Hook functions to be run upon entering Forms mode.") @@ -568,9 +568,13 @@ Commands: Equivalent keys in read-only mode: ;; set the major mode indicator (setq major-mode 'forms-mode) (setq mode-name "Forms") - (make-local-variable 'minor-mode-alist) ; needed? - ;;(message "forms: proceeding setup (minor mode)...") - (forms--set-minor-mode) + + ;; 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 + ;; that reason, this variable must be buffer only. + (make-local-variable 'minor-mode-alist) + (setq minor-mode-alist (list (list 'forms-read-only " View"))) + ;;(message "forms: proceeding setup (keymaps)...") (forms--set-keymaps) ;;(message "forms: proceeding setup (commands)...") @@ -1071,12 +1075,6 @@ Commands: Equivalent keys in read-only mode: (setq forms--field nil))) )) -(defun forms--set-minor-mode () - (setq minor-mode-alist - (if forms-read-only - " View" - nil))) - (defun forms--set-keymaps () "Set the keymaps used in this mode." @@ -1720,4 +1718,3 @@ Usage: (setq forms-number-of-fields (insert ret))))) ;;; forms.el ends here. - |