diff lisp/textmodes/text-mode.el @ 47966:85dbcc2c6739

(text-mode-syntax-table): Make ' a prefix. (paragraph-indent-text-mode-abbrev-table) (paragraph-indent-text-mode-syntax-table): Remove. (paragraph-indent-text-mode): Use the :abbrev and :syntax-table args.

--- a/lisp/textmodes/text-mode.el	Mon Oct 21 21:03:00 2002 +0000
+++ b/lisp/textmodes/text-mode.el	Mon Oct 21 21:04:50 2002 +0000
@@ -43,7 +43,8 @@
   (let ((st (make-syntax-table)))
     (modify-syntax-entry ?\" ".   " st)
     (modify-syntax-entry ?\\ ".   " st)
-    (modify-syntax-entry ?' "w   " st)
+    ;; We add `p' so that M-c on 'hello' leads to 'Hello' rather than 'hello'.
+    (modify-syntax-entry ?' "w p" st)
     st)
   "Syntax table used while in `text-mode'.")
 
@@ -70,8 +71,6 @@
   (set (make-local-variable 'require-final-newline) t)
   (set (make-local-variable 'indent-line-function) 'indent-relative))
 
-(defvar paragraph-indent-text-mode-abbrev-table text-mode-abbrev-table)
-(defvar paragraph-indent-text-mode-syntax-table text-mode-syntax-table)
 (define-derived-mode paragraph-indent-text-mode text-mode "Parindent"
   "Major mode for editing text, with leading spaces starting a paragraph.
 In this mode, you do not need blank lines between paragraphs
@@ -81,6 +80,7 @@
 \\{text-mode-map}
 Turning on Paragraph-Indent Text mode runs the normal hooks
 `text-mode-hook' and `paragraph-indent-text-mode-hook'."
+  :abbrev-table nil :syntax-table nil
   (paragraph-indent-minor-mode))
 
 (defun paragraph-indent-minor-mode ()