From 61ed2dcc9a5591801adbb99314a2827fcdae621e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 21 Oct 2002 21:04:50 +0000 Subject: [PATCH] (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. --- lisp/textmodes/text-mode.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el index f243aff940b..069942c69cb 100644 --- a/lisp/textmodes/text-mode.el +++ b/lisp/textmodes/text-mode.el @@ -43,7 +43,8 @@ Use (derived-mode-p 'text-mode) instead.") (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 @@ Turning on Text mode runs the normal hook `text-mode-hook'." (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 @@ Special commands: \\{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 () -- 2.39.2