From: Juri Linkov <juri@jurta.org>
Date: Sun, 18 Sep 2011 19:56:12 +0000 (+0300)
Subject: * lisp/info.el (Info-mode-syntax-table): New variable.
X-Git-Tag: emacs-pretest-24.0.90~95
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=72753f87ca435108ba039078dfa0c833aefb453c;p=emacs.git

* 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 62cdd4d61c9..cdcd33877f9 100644
--- 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 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)