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

[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  f3180f82fb8b20915bb6bce50bad778e31529145 (commit)
      from  2ed9d9308fe35daaf3157aeb0500bdb20c0be68c (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 f3180f82fb8b20915bb6bce50bad778e31529145
Author: Ikumi Keita <address@hidden>
Date:   Sat Aug 26 21:21:23 2017 +0900

    Fix doc string and indent
    
    * tex.el (TeX-PDF-from-DVI, TeX-insert-braces-alist)
    (TeX-arg-literal, TeX-auto-add-type):
    Fix doc string.
    (TeX-auto-parse-region): Fix indent.

diff --git a/tex.el b/tex.el
index 972110b..8083fa0 100644
--- a/tex.el
+++ b/tex.el
@@ -2246,7 +2246,7 @@ Programs should not use this variable directly but the 
function
   "Return the value of variable `TeX-PDF-from-DVI'.
 
 If `TeX-PDF-from-DVI' is not set and obsolete option
-`TeX-PDF-via-dvips-ps2pdf' is non-nil, return \"dvips-ps2pdf\"
+`TeX-PDF-via-dvips-ps2pdf' is non-nil, return \"Dvips\"
 for backward compatibility."
   (cond
    (TeX-PDF-from-DVI)
@@ -3297,7 +3297,7 @@ CDR is non-nil or nil, depending on whether a pair of 
braces
 should be, respectively, appended or not to the macro.
 
 If a macro has an element in this variable, `TeX-parse-macro'
-will use its value to decided what to do, whatever the value of
+will use its value to decide what to do, whatever the value of
 the variable `TeX-insert-braces'."
   :group 'TeX-macro
   :type '(repeat (cons (string :tag "Macro name")
@@ -3623,7 +3623,7 @@ Unless optional argument COMPLETE is non-nil, ``: '' will 
be appended."
 (defun TeX-arg-literal (optional &rest args)
   "Insert its arguments ARGS into the buffer.
 Used for specifying extra syntax for a macro.  The compatibility
-argument OPTION is ignored."
+argument OPTIONAL is ignored."
   (apply 'insert args))
 
 
@@ -3923,7 +3923,7 @@ The algorithm is as follows:
 (defmacro TeX-auto-add-type (name prefix &optional plural)
   "Add information about NAME to the parser using PREFIX.
 
-Optional third argument PLURAL is the plural form of TYPE.
+Optional third argument PLURAL is the plural form of NAME.
 By default just add an `s'.
 
 This macro creates a set of variables and functions to maintain a
@@ -4310,56 +4310,55 @@ you should not use something like `[\\(]' for a 
character range."
   "Parse TeX information according to REGEXP-LIST between BEG and END."
   (if (symbolp regexp-list)
       (setq regexp-list (and (boundp regexp-list) (symbol-value regexp-list))))
-   (if regexp-list
-       ;; Extract the information.
-       (let* (groups
-             (count 1)
-             (regexp (concat "\\("
-                             (mapconcat
-                              (lambda(x)
-                                (push (cons count x) groups)
-                                (setq count
-                                      (+ 1 count
-                                         (TeX-regexp-group-count (car x))))
-                                (car x))
-                              regexp-list "\\)\\|\\(")
-                             "\\)"))
-             syms
-             lst)
-        (setq count 0)
-        (goto-char (if end (min end (point-max)) (point-max)))
-        (while (re-search-backward regexp beg t)
-          (let* ((entry (cdr (TeX-member nil groups
-                                         (lambda (a b)
-                                           (match-beginning (car b))))))
-                 (symbol (nth 2 entry))
-                 (match (nth 1 entry)))
-            (unless (TeX-in-comment)
-              (looking-at (nth 0 entry))
-              (if (fboundp symbol)
-                  (funcall symbol match)
-                (puthash (if (listp match)
-                             (mapcar #'TeX-match-buffer match)
-                           (TeX-match-buffer match))
-                         (setq count (1- count))
-                         (cdr (or (assq symbol syms)
-                                  (car (push
-                                        (cons symbol
-                                              (make-hash-table :test 'equal))
-                                        syms)))))))))
-        (setq count 0)
-        (dolist (symbol syms)
-          (setq lst (symbol-value (car symbol)))
-          (while lst
-            (puthash (pop lst)
-                     (setq count (1+ count))
-                     (cdr symbol)))
-          (maphash (lambda (key value)
-                     (push (cons value key) lst))
-                   (cdr symbol))
-          (clrhash (cdr symbol))
-          (set (car symbol) (mapcar #'cdr (sort lst #'car-less-than-car)))))))
-
+  (if regexp-list
+      ;; Extract the information.
+      (let* (groups
+            (count 1)
+            (regexp (concat "\\("
+                            (mapconcat
+                             (lambda(x)
+                               (push (cons count x) groups)
+                               (setq count
+                                     (+ 1 count
+                                        (TeX-regexp-group-count (car x))))
+                               (car x))
+                             regexp-list "\\)\\|\\(")
+                            "\\)"))
+            syms
+            lst)
+       (setq count 0)
+       (goto-char (if end (min end (point-max)) (point-max)))
+       (while (re-search-backward regexp beg t)
+         (let* ((entry (cdr (TeX-member nil groups
+                                        (lambda (a b)
+                                          (match-beginning (car b))))))
+                (symbol (nth 2 entry))
+                (match (nth 1 entry)))
+           (unless (TeX-in-comment)
+             (looking-at (nth 0 entry))
+             (if (fboundp symbol)
+                 (funcall symbol match)
+               (puthash (if (listp match)
+                            (mapcar #'TeX-match-buffer match)
+                          (TeX-match-buffer match))
+                        (setq count (1- count))
+                        (cdr (or (assq symbol syms)
+                                 (car (push
+                                       (cons symbol
+                                             (make-hash-table :test 'equal))
+                                       syms)))))))))
+       (setq count 0)
+       (dolist (symbol syms)
+         (setq lst (symbol-value (car symbol)))
+         (while lst
+           (puthash (pop lst)
+                    (setq count (1+ count))
+                    (cdr symbol)))
+         (maphash (lambda (key value)
+                    (push (cons value key) lst))
+                  (cdr symbol))
+         (clrhash (cdr symbol))
+         (set (car symbol) (mapcar #'cdr (sort lst #'car-less-than-car)))))))
 
 (defun TeX-auto-parse ()
   "Parse TeX information in current buffer.

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

Summary of changes:
 tex.el | 107 ++++++++++++++++++++++++++++++++---------------------------------
 1 file changed, 53 insertions(+), 54 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX