Mercurial > emacs
changeset 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.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 21 Oct 2002 21:04:50 +0000 |
| parents | 1099445a76d0 |
| children | 0a8bff6f0168 |
| files | lisp/textmodes/text-mode.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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 ()