GNU bug report logs - #25563
11.90; Many predicates in TeX-view-predicate-list-builtin don't work.

Previous Next

Full log

Message #20 received at 25563 <at> debbugs.gnu.org (full text, mbox):

From: Ikumi Keita <ikumi <at> ikumi.que.jp>
To: Tassilo Horn <tsdh <at> gnu.org>
Cc: 25563 <at> debbugs.gnu.org
Subject: Re: bug#25563: 11.90;
 Many predicates in TeX-view-predicate-list-builtin don't work.
Date: Fri, 03 Feb 2017 00:24:18 +0900

>> I attach a patch based on the above idea.

> Added trivial fix for coherency (provided -> match).

Sorry for noise, I had to change "options" to "option", too.

Bye,
Ikumi Keita

diff -r c52403a42881 latex.el
--- a/latex.el	Wed Dec 21 22:58:09 2016 +0900
+++ b/latex.el	Fri Feb 03 00:21:58 2017 +0900
@@ -1799,9 +1799,10 @@
 			      (list (cons style options)))))
 
 	;; The third argument if "class" indicates LaTeX2e features.
-	(cond ((equal class "class")
+	(cond ((or (string-equal class "class")
+		   (string-equal class "Class"))
 	       (add-to-list 'TeX-auto-file "latex2e"))
-	      ((equal class "style")
+	      ((string-equal class "style")
 	       (add-to-list 'TeX-auto-file "latex2"))))))
 
   ;; Cleanup optional arguments
diff -r c52403a42881 tex.el
--- a/tex.el	Wed Dec 21 22:58:09 2016 +0900
+++ b/tex.el	Fri Feb 03 00:21:58 2017 +0900
@@ -1167,18 +1167,18 @@
     (mode-io-correlate
      TeX-source-correlate-mode)
     (paper-landscape
-     (and (fboundp 'LaTeX-provided-class-options)
+     (and (fboundp 'LaTeX-match-class-option)
 	  (LaTeX-match-class-option "\\`landscape\\'")))
     (paper-portrait
-     (not (and (fboundp 'LaTeX-provided-class-options)
+     (not (and (fboundp 'LaTeX-match-class-option)
 	       (LaTeX-match-class-option "\\`landscape\\'"))))
     (paper-a4
-     (let ((regex "\\`a4paper\\|a4dutch\\|a4wide\\|sem-a4\\'"))
+     (let ((regex "\\`\\(?:a4paper\\|a4dutch\\|a4wide\\|sem-a4\\)\\'"))
        (or (TeX-match-style regex)
 	   (and (fboundp 'LaTeX-match-class-option)
 		(LaTeX-match-class-option regex)))))
     (paper-a5
-     (let ((regex "\\`a5paper\\|a5comb\\'"))
+     (let ((regex "\\`\\(?:a5paper\\|a5comb\\)\\'"))
        (or (TeX-match-style regex)
 	   (and (fboundp 'LaTeX-match-class-option)
 		(LaTeX-match-class-option regex)))))

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.