/[emacs]/emacs/lisp/textmodes/text-mode.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/text-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.36 by monnier, Tue Oct 30 06:00:10 2001 UTC revision 1.37 by rms, Wed Feb 6 14:57:57 2002 UTC
# Line 65  You can thus get the full benefit of ada Line 65  You can thus get the full benefit of ada
65   (see the variable `adaptive-fill-mode').   (see the variable `adaptive-fill-mode').
66  \\{text-mode-map}  \\{text-mode-map}
67  Turning on Text mode runs the normal hook `text-mode-hook'."  Turning on Text mode runs the normal hook `text-mode-hook'."
68      (make-local-variable 'text-mode-variant)
69      (setq text-mode-variant t)
70    (set (make-local-variable 'indent-line-function) 'indent-relative))    (set (make-local-variable 'indent-line-function) 'indent-relative))
71    
72  (define-derived-mode paragraph-indent-text-mode text-mode "Parindent"  (define-derived-mode paragraph-indent-text-mode text-mode "Parindent"
# Line 93  Turning on Paragraph-Indent minor mode r Line 95  Turning on Paragraph-Indent minor mode r
95                
96  (defalias 'indented-text-mode 'text-mode)  (defalias 'indented-text-mode 'text-mode)
97    
 (defun text-mode-hook-identify ()  
   "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)  
   
98  (defun toggle-text-mode-auto-fill ()  (defun toggle-text-mode-auto-fill ()
99    "Toggle whether to use Auto Fill in Text mode and related modes.    "Toggle whether to use Auto Fill in Text mode and related modes.
100  This command affects all buffers that use modes related to Text mode,  This command affects all buffers that use modes related to Text mode,

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26