[AUCTeX-diffs] GNU AUCTeX branch, master, updated. bfaa079a2836996a4733056c0c90daf3ad141c42

[Ikumi Keita]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, master has been updated
       via  bfaa079a2836996a4733056c0c90daf3ad141c42 (commit)
       via  7863f42363d0ac53663cfb6759537ee221158060 (commit)
      from  a9440770f0a935769b46bf08e7e8b936733b6eab (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit bfaa079a2836996a4733056c0c90daf3ad141c42
Author: Ikumi Keita <address@hidden>
Date:   Sat Sep 2 21:55:45 2017 +0900

    Conform to elisp coding convention
    
    * style/biblatex.el (LaTeX-arg-addbibresource)
    (LaTeX-biblatex-package-options):
    * style/fontspec.el (LaTeX-fontspec-arg-font):
    Add "done" message.
    * style/relsize.el ("relsize"): Tailor prompt string.
    * style/bidi.el: Remove spurious execution bit.

diff --git a/style/biblatex.el b/style/biblatex.el
index 6662695..4c47295 100644
--- a/style/biblatex.el
+++ b/style/biblatex.el
@@ -161,6 +161,7 @@ string."
     (or (symbol-value files)
        (set files (mapcar 'list (TeX-search-files-by-type
                                  'biberinputs 'global t nil))))
+    (message "Searching for BibLaTeX files...done")
     (setq database (completing-read
                    (TeX-argument-prompt optional prompt "BibLaTeX files")
                    (append (mapcar 'list (TeX-search-files-by-type
@@ -618,7 +619,8 @@ for citation keys."
        (progn
          (message "Searching for BibLaTeX styles...")
          (setq BibLaTeX-global-style-files
-               (TeX-search-files-by-type 'bbxinputs 'global t t)))
+               (TeX-search-files-by-type 'bbxinputs 'global t t))
+         (message "Searching for BibLaTeX styles...done"))
       ;; ...else, use for completion only standard BibLaTeX styles (see §3.3 
of
       ;; Biblatex reference manual).
       (setq BibLaTeX-global-style-files
diff --git a/style/bidi.el b/style/bidi.el
old mode 100755
new mode 100644
diff --git a/style/fontspec.el b/style/fontspec.el
index 58f4e48..9446b72 100644
--- a/style/fontspec.el
+++ b/style/fontspec.el
@@ -189,7 +189,8 @@ to retrieve the list of fonts."
            (re-search-forward "^\\([^\n\r\t]*\\)\t\\([^\n\r\t]*\\)\t.*$" nil t)
          (add-to-list 'LaTeX-fontspec-font-list (match-string-no-properties 1))
          (add-to-list 'LaTeX-fontspec-font-list
-                      (match-string-no-properties 2))))))
+                      (match-string-no-properties 2))))
+      (message "Searching for fonts...done")))
   (TeX-argument-insert
    (completing-read
     (TeX-argument-prompt optional prompt "Font name")
diff --git a/style/relsize.el b/style/relsize.el
index ceaabf5..0a47b01 100644
--- a/style/relsize.el
+++ b/style/relsize.el
@@ -38,8 +38,8 @@
     ;; Declarations and commands
     '("relsize"     "Steps"                    )
     '("relscale"    "Scale factor"             )
-    '("larger"      [ "Steps (default: 1)" ] -1)
-    '("smaller"     [ "Steps (default: 1)" ] -1)
+    '("larger"      [ "Steps (default 1)" ] -1)
+    '("smaller"     [ "Steps (default 1)" ] -1)
     '("textlarger"  [ "Steps" ]               t)
     '("textsmaller" [ "Steps" ]               t)
     '("textscale"   "Scale factor"            t)

commit 7863f42363d0ac53663cfb6759537ee221158060
Author: Ikumi Keita <address@hidden>
Date:   Fri Sep 1 00:06:42 2017 +0900

    Prevent possible infinite loop
    
    * tex.el (TeX-delete-duplicate-strings): Make sure that comparison is
    done with valid list elements.
    (TeX-delete-dups-by-car): Ditto.
    Use `TeX-sort-strings' and `TeX-car-string-lessp'.
    (TeX-car-string-lessp): Move the position of defun before the
    defcustom of `TeX-engine'.  Since the defcustom requires
    `TeX-delete-dups-by-car' at load time, all the functions used in
    `TeX-delete-dups-by-car' must be defined before the defcustom.

diff --git a/tex.el b/tex.el
index 79b59b8..e4012b0 100644
--- a/tex.el
+++ b/tex.el
@@ -914,12 +914,11 @@ overlays."
   "Return a list of all elements in ALIST, but each car only once.
 Elements of KEEP-LIST are not removed even if duplicate."
   ;; Copy of `reftex-uniquify-by-car' (written by David Kastrup).
-  (setq keep-list (sort (copy-sequence keep-list) #'string<))
+  (setq keep-list (TeX-sort-strings keep-list))
   (setq alist (sort (copy-sequence alist)
-                   (lambda (a b)
-                     (string< (car a) (car b)))))
+                   #'TeX-car-string-lessp))
   (let ((new alist) elt)
-    (while new
+    (while (cdr new)
       (setq elt (caar new))
       (while (and keep-list (string< (car keep-list) elt))
        (setq keep-list (cdr keep-list)))
@@ -933,7 +932,7 @@ Elements of KEEP-LIST are not removed even if duplicate."
   "Return a list of all strings in LIST, but each only once."
   (setq list (TeX-sort-strings list))
   (let ((new list) elt)
-    (while new
+    (while (cdr new)
       (setq elt (car new))
       (while (string= elt (cadr new))
        (setcdr new (cddr new)))
@@ -944,6 +943,11 @@ Elements of KEEP-LIST are not removed even if duplicate."
   "Return sorted list of all strings in LIST."
   (sort (copy-sequence list) #'string<))
 
+(defun TeX-car-string-lessp (s1 s2)
+  "Compare the cars of S1 and S2 in lexicographic order.
+Return t if first is less than second in lexicographic order."
+  (string-lessp (car s1) (car s2)))
+
 ;;; Buffer
 
 (defgroup TeX-output nil
@@ -4737,11 +4741,6 @@ If optional argument STRIP is non-nil, remove file 
extension."
 ;; Some of these functions has little to do with TeX, but nonetheless we
 ;; should use the "TeX-" prefix to avoid name clashes.
 
-(defun TeX-car-string-lessp (s1 s2)
-  "Compare the cars of S1 and S2 in lexicographic order.
-Return t if first is less than second in lexicographic order."
-  (string-lessp (car s1) (car s2)))
-
 (defun TeX-listify (elt)
   "Return a newly created list with element ELT.
 If ELT already is a list, return ELT."

-----------------------------------------------------------------------

Summary of changes:
 style/biblatex.el |  4 +++-
 style/bidi.el     |  0
 style/fontspec.el |  3 ++-
 style/relsize.el  |  4 ++--
 tex.el            | 19 +++++++++----------
 5 files changed, 16 insertions(+), 14 deletions(-)
 mode change 100755 => 100644 style/bidi.el


hooks/post-receive
-- 
GNU AUCTeX