emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH] text-mode-hook-identify should be part of the standard value for


From: Per Abrahamsen
Subject: [PATCH] text-mode-hook-identify should be part of the standard value for text-mode-hook
Date: Tue, 05 Feb 2002 17:59:22 +0100
User-agent: Gnus/5.090006 (Oort Gnus v0.06) Emacs/21.1 (i686-pc-linux-gnu)

text-mode-hook-identify is added to text-mode-hook with add-hook,
which makes customize believe is has been changed from its standard
value.  This breaks "Reset to standard value" and may confuse "Save
Options" as well (both the old and new implementations). 

Since text-mode.el is loaded before any user code, it is safe to make
it part of the standard value, as this patch does.

OK to commit?

2002-02-05  Per Abrahamsen  <address@hidden>

        * textmodes/text-mode.el (text-mode-hook): Made
        `text-mode-hook-identify' part of the standard value.

Index: lisp/textmodes/text-mode.el
===================================================================
RCS file: /cvsroot/emacs//emacs/lisp/textmodes/text-mode.el,v
retrieving revision 1.36
diff -c -r1.36 text-mode.el
*** lisp/textmodes/text-mode.el 30 Oct 2001 06:00:10 -0000      1.36
--- lisp/textmodes/text-mode.el 5 Feb 2002 16:42:03 -0000
***************
*** 1,6 ****
  ;;; text-mode.el --- text mode, and its idiosyncratic commands
  
! ;; Copyright (C) 1985, 1992, 1994 Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
  ;; Keywords: wp
--- 1,6 ----
  ;;; text-mode.el --- text mode, and its idiosyncratic commands
  
! ;; Copyright (C) 1985, 1992, 1994, 2002 Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
  ;; Keywords: wp
***************
*** 29,38 ****
  
  ;;; Code:
  
! (defcustom text-mode-hook nil
    "Normal hook run when entering Text mode and many related modes."
    :type 'hook
!   :options '(turn-on-auto-fill flyspell-mode)
    :group 'data)
  
  (defvar text-mode-variant nil
--- 29,38 ----
  
  ;;; Code:
  
! (defcustom text-mode-hook '(text-mode-hook-identify)
    "Normal hook run when entering Text mode and many related modes."
    :type 'hook
!   :options '(turn-on-auto-fill flyspell-mode text-mode-hook-identify)
    :group 'data)
  
  (defvar text-mode-variant nil
***************
*** 97,104 ****
    "Mark that this mode has run `text-mode-hook'.
  This is how `toggle-text-mode-auto-fill' knows which buffers to operate on."
    (set (make-local-variable 'text-mode-variant) t))
- 
- (add-hook 'text-mode-hook 'text-mode-hook-identify)
  
  (defun toggle-text-mode-auto-fill ()
    "Toggle whether to use Auto Fill in Text mode and related modes.
--- 97,102 ----



reply via email to

[Prev in Thread] Current Thread [Next in Thread]