* lisp/info.el (Info-mode-syntax-table): New variable.

(Info-mode): Set `:syntax-table' to `Info-mode-syntax-table'.

Fixes: debbugs:3312

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 62cdd4d61c947a3208fe55c3793d4482b8745611..cdcd33877f9be49141d82495e533d83789b7ad4a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/lisp/info.el b/lisp/info.el
index 42278621bbc0b9b4d07fc043ca8de58faa8b4925..eb45bb0bd2f04df52c7c06b823bcd0195327ece2 100644 (file)
--- 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)