/[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.39 by rms, Thu Feb 14 01:28:57 2002 UTC revision 1.39.4.1 by miles, Fri Apr 4 06:20:40 2003 UTC
# Line 43  Use (derived-mode-p 'text-mode) instead. Line 43  Use (derived-mode-p 'text-mode) instead.
43    (let ((st (make-syntax-table)))    (let ((st (make-syntax-table)))
44      (modify-syntax-entry ?\" ".   " st)      (modify-syntax-entry ?\" ".   " st)
45      (modify-syntax-entry ?\\ ".   " st)      (modify-syntax-entry ?\\ ".   " st)
46      (modify-syntax-entry ?' "w   " st)      ;; We add `p' so that M-c on 'hello' leads to 'Hello' rather than 'hello'.
47        (modify-syntax-entry ?' "w p" st)
48      st)      st)
49    "Syntax table used while in `text-mode'.")    "Syntax table used while in `text-mode'.")
50    
# Line 67  You can thus get the full benefit of ada Line 68  You can thus get the full benefit of ada
68  Turning on Text mode runs the normal hook `text-mode-hook'."  Turning on Text mode runs the normal hook `text-mode-hook'."
69    (make-local-variable 'text-mode-variant)    (make-local-variable 'text-mode-variant)
70    (setq text-mode-variant t)    (setq text-mode-variant t)
71      (set (make-local-variable 'require-final-newline) t)
72    (set (make-local-variable 'indent-line-function) 'indent-relative))    (set (make-local-variable 'indent-line-function) 'indent-relative))
73    
74  (define-derived-mode paragraph-indent-text-mode text-mode "Parindent"  (define-derived-mode paragraph-indent-text-mode text-mode "Parindent"
# Line 78  Special commands: Line 80  Special commands:
80  \\{text-mode-map}  \\{text-mode-map}
81  Turning on Paragraph-Indent Text mode runs the normal hooks  Turning on Paragraph-Indent Text mode runs the normal hooks
82  `text-mode-hook' and `paragraph-indent-text-mode-hook'."  `text-mode-hook' and `paragraph-indent-text-mode-hook'."
83      :abbrev-table nil :syntax-table nil
84    (paragraph-indent-minor-mode))    (paragraph-indent-minor-mode))
85    
86  (defun paragraph-indent-minor-mode ()  (defun paragraph-indent-minor-mode ()
# Line 92  Turning on Paragraph-Indent minor mode r Line 95  Turning on Paragraph-Indent minor mode r
95         (concat "[ \t\n\f]\\|" paragraph-start))         (concat "[ \t\n\f]\\|" paragraph-start))
96    (set (make-local-variable 'indent-line-function) 'indent-to-left-margin)    (set (make-local-variable 'indent-line-function) 'indent-to-left-margin)
97    (run-hooks 'paragraph-indent-text-mode-hook))    (run-hooks 'paragraph-indent-text-mode-hook))
98          
99  (defalias 'indented-text-mode 'text-mode)  (defalias 'indented-text-mode 'text-mode)
100    
101  ;; This can be made a no-op once all modes that use text-mode-hook  ;; This can be made a no-op once all modes that use text-mode-hook

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.39.4.1

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