diff options
| author | Juri Linkov <juri@jurta.org> | 2011-09-18 22:56:12 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2011-09-18 22:56:12 +0300 |
| commit | 72753f87ca435108ba039078dfa0c833aefb453c (patch) | |
| tree | 56af0f5b87036b427ae8ba8702a04b38e6a63880 | |
| parent | c9384295aa5f189930013c80955748604d10dd52 (diff) | |
| download | emacs-72753f87ca435108ba039078dfa0c833aefb453c.tar.gz | |
* lisp/info.el (Info-mode-syntax-table): New variable.
(Info-mode): Set `:syntax-table' to `Info-mode-syntax-table'.
Fixes: debbugs:3312
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/info.el | 10 |
2 files changed, 14 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 62cdd4d61c9..cdcd33877f9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2011-09-18 Juri Linkov <juri@jurta.org> + * info.el (Info-mode-syntax-table): New variable. + (Info-mode): Set `:syntax-table' to `Info-mode-syntax-table'. (Bug#3312) + +2011-09-18 Juri Linkov <juri@jurta.org> + * info.el (Info-file-supports-index-cookies): Increment line-beginning-position's arg from 3 to 4 because makeinfo outputs one more line for long file names (bug#4142). diff --git a/lisp/info.el b/lisp/info.el index 42278621bbc..eb45bb0bd2f 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -3887,6 +3887,14 @@ With a zero prefix arg, put the name inside a function call to `info'." (defvar tool-bar-map) (defvar bookmark-make-record-function) +(defvar Info-mode-syntax-table + (let ((st (copy-syntax-table text-mode-syntax-table))) + ;; Use punctuation syntax for apostrophe because of + ;; extensive use of quotes like `this' in Info manuals. + (modify-syntax-entry ?' "." st) + st) + "Syntax table used in `Info-mode'.") + ;; Autoload cookie needed by desktop.el ;;;###autoload (define-derived-mode Info-mode nil "Info" @@ -3951,7 +3959,7 @@ Advanced commands: \\[clone-buffer] Select a new cloned Info buffer in another window. \\[universal-argument] \\[info] Move to new Info file with completion. \\[universal-argument] N \\[info] Select Info buffer with prefix number in the name *info*<N>." - :syntax-table text-mode-syntax-table + :syntax-table Info-mode-syntax-table :abbrev-table text-mode-abbrev-table (setq tab-width 8) (add-hook 'activate-menubar-hook 'Info-menu-update nil t) |