[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r116939: * lisp/textmodes/reftex-parse.el (reftex--i
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] trunk r116939: * lisp/textmodes/reftex-parse.el (reftex--index-tags): Rename `index-tags'. |
Date: |
Fri, 04 Apr 2014 20:16:32 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r116939: * lisp/textmodes/reftex-parse.el (reftex--index-tags): Rename `index-tags'.,
Stefan Monnier <=