[Emacs-diffs] /srv/bzr/emacs/trunk r105829: * lisp/info.el (Info-mode-syntax-table): New variable.

[Juri Linkov]

------------------------------------------------------------
revno: 105829
fixes bug(s): http://debbugs.gnu.org/3312
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Sun 2011-09-18 22:56:12 +0300
message:
  * lisp/info.el (Info-mode-syntax-table): New variable.
  (Info-mode): Set `:syntax-table' to `Info-mode-syntax-table'.
modified:
  lisp/ChangeLog
  lisp/info.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-18 19:49:13 +0000
+++ b/lisp/ChangeLog    2011-09-18 19:56:12 +0000
@@ -1,5 +1,10 @@
 2011-09-18  Juri Linkov  <address@hidden>
 
+       * 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  <address@hidden>
+
        * 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).

=== modified file 'lisp/info.el'
--- a/lisp/info.el      2011-09-18 19:49:13 +0000
+++ b/lisp/info.el      2011-09-18 19:56:12 +0000
@@ -3887,6 +3887,14 @@
 (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 @@
 \\[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)