[Emacs-diffs] trunk r116939: * lisp/textmodes/reftex-parse.el (reftex--index-tags): Rename `index-tags'.

[Stefan Monnier]

------------------------------------------------------------
revno: 116939
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2014-04-04 16:16:24 -0400
message:
  * lisp/textmodes/reftex-parse.el (reftex--index-tags): Rename `index-tags'.
  Move declaration before first use.
  (reftex-move-to-next-arg): Silence compiler warning.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/textmodes/reftex-parse.el 
reftexparse.el-20091113204419-o5vbwnq5f7feedwu-1334

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-04-04 12:10:22 +0000
+++ b/lisp/ChangeLog    2014-04-04 20:16:24 +0000
@@ -1,7 +1,13 @@
+2014-04-04  Stefan Monnier  <address@hidden>
+
+       * textmodes/reftex-parse.el (reftex--index-tags): Rename `index-tags'.
+       Move declaration before first use.
+       (reftex-move-to-next-arg): Silence compiler warning.
+
 2014-04-04  Joost Kremers  <address@hidden>  (tiny change)
 
-       * textmodes/reftex-toc.el (reftex-toc, reftex-re-enlarge): Use
-       `window-total-width' instead of `window-width'.
+       * textmodes/reftex-toc.el (reftex-toc, reftex-re-enlarge):
+       Use `window-total-width' instead of `window-width'.
 
 2014-04-03  Daniel Colascione  <address@hidden>
 
@@ -38,8 +44,8 @@
 
 2014-04-02  João Távora  <address@hidden>
 
-       * elec-pair.el (electric-pair-inhibit-if-helps-balance): Inhibit
-       quote pairing if point-max is inside an unterminated string.
+       * elec-pair.el (electric-pair-inhibit-if-helps-balance):
+       Inhibit quote pairing if point-max is inside an unterminated string.
        (electric-pair--looking-at-unterminated-string-p):
        Delete.
        (electric-pair--in-unterminated-string-p): New function.
@@ -51,8 +57,8 @@
 
 2014-03-31  Leo Liu  <address@hidden>
 
-       * emacs-lisp/eldoc.el (eldoc-print-current-symbol-info): Refactor
-       out eldoc-documentation-function-default.
+       * emacs-lisp/eldoc.el (eldoc-print-current-symbol-info):
+       Refactor out eldoc-documentation-function-default.
        (eldoc-documentation-function-default): New function.
        (eldoc-documentation-function): Change value.
 
@@ -87,8 +93,8 @@
 
 2014-03-30  Daniel Colascione  <address@hidden>
 
-       * comint.el (comint-send-input): Deactivate
-       completion-in-region-mode before we send comint input.
+       * comint.el (comint-send-input):
+       Deactivate completion-in-region-mode before we send comint input.
        (Bug#17139).
 
        * simple.el (keyboard-quit): Deactivate completion-in-region-mode

=== modified file 'lisp/textmodes/reftex-parse.el'
--- a/lisp/textmodes/reftex-parse.el    2014-03-29 00:53:32 +0000
+++ b/lisp/textmodes/reftex-parse.el    2014-04-04 20:16:24 +0000
@@ -50,6 +50,8 @@
   (interactive)
   (reftex-access-scan-info '(16)))
 
+(defvar reftex--index-tags)
+
 ;;;###autoload
 (defun reftex-do-parse (rescan &optional file)
   "Do a document rescan.
@@ -75,7 +77,7 @@
          (file (or file (buffer-file-name)))
          (true-file (file-truename file))
          (bibview-cache (assq 'bibview-cache old-list))
-         (index-tags (cdr (assq 'index-tags old-list)))
+         (reftex--index-tags (cdr (assq 'index-tags old-list)))
          from-file appendix docstruct tmp)
 
     ;; Make sure replacement is really an option here
@@ -95,7 +97,7 @@
                 (t (error "This should not happen (reftex-do-parse)"))))
 
     ;; Reset index-tags if we scan everything
-    (if (equal rescan 1) (setq index-tags nil))
+    (if (equal rescan 1) (setq reftex--index-tags nil))
 
     ;; Find active toc entry and initialize section-numbers
     (setq reftex-active-toc (reftex-last-assoc-before-elt
@@ -140,11 +142,12 @@
            (entry (or (assq 'is-multi docstruct)
                       (car (push (list 'is-multi is-multi) docstruct)))))
       (setcdr entry (cons is-multi nil)))
-    (and index-tags (setq index-tags (sort index-tags 'string<)))
+    (and reftex--index-tags
+         (setq reftex--index-tags (sort reftex--index-tags 'string<)))
     (let ((index-tag-cell (assq 'index-tags docstruct)))
       (if index-tag-cell
-          (setcdr index-tag-cell index-tags)
-        (push (cons 'index-tags index-tags) docstruct)))
+          (setcdr index-tag-cell reftex--index-tags)
+        (push (cons 'index-tags reftex--index-tags) docstruct)))
     (unless (assq 'xr docstruct)
       (let* ((allxr (reftex-all-assq 'xr-doc docstruct))
              (alist (mapcar
@@ -194,8 +197,6 @@
     (nreverse file-list)))
 
 ;; Bound in the caller, reftex-do-parse.
-(defvar index-tags)
-
 (defun reftex-parse-from-file (file docstruct master-dir)
   "Scan the buffer for labels and save them in a list."
   (let ((regexp (reftex-everything-regexp))
@@ -305,7 +306,7 @@
                  (when reftex-support-index
                    (setq index-entry (reftex-index-info file))
                    (when index-entry
-                     (add-to-list 'index-tags (nth 1 index-entry))
+                     (add-to-list 'reftex--index-tags (nth 1 index-entry))
                      (push index-entry docstruct))))
 
                 ((match-end 11)
@@ -772,7 +773,7 @@
              ;; Index entry
              (and reftex-support-index
                   (setq entry (reftex-index-info-safe buffer-file-name))
-                  ;; FIXME: (add-to-list 'index-tags (nth 1 index-entry))
+                  ;; FIXME: (add-to-list 'reftex--index-tags (nth 1 
index-entry))
                   (push entry (cdr tail))))))))))
 
     (error nil))
@@ -942,7 +943,7 @@
             specials
           (car specials))))))
 
-(defsubst reftex-move-to-next-arg (&optional ignore)
+(defsubst reftex-move-to-next-arg (&optional _ignore)
   "Assuming that we are at the end of a macro name or a macro argument,
 move forward to the opening parenthesis of the next argument.
 This function understands the splitting of macros over several lines