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

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

Fixes: debbugs:3312

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)