[Emacs-diffs] emacs/lisp ChangeLog textmodes/reftex-cite.el t...

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/01 03:02:36

Modified files:
        lisp           : ChangeLog 
        lisp/textmodes : reftex-cite.el reftex-index.el reftex-ref.el 
                         reftex-toc.el 

Log message:
        Remove unnecessary bindings of default-major-mode (all are followed by
        major-mode check and possible mode switch).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16074&r2=1.16075
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/reftex-cite.el?cvsroot=emacs&r1=1.44&r2=1.45
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/reftex-index.el?cvsroot=emacs&r1=1.50&r2=1.51
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/reftex-ref.el?cvsroot=emacs&r1=1.36&r2=1.37
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/reftex-toc.el?cvsroot=emacs&r1=1.47&r2=1.48

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16074
retrieving revision 1.16075
diff -u -b -r1.16074 -r1.16075
--- ChangeLog   31 Aug 2009 12:34:15 -0000      1.16074
+++ ChangeLog   1 Sep 2009 03:02:25 -0000       1.16075
@@ -1,3 +1,12 @@
+2009-09-01  Glenn Morris  <address@hidden>
+
+       * textmodes/reftex-cite.el (reftex-offer-bib-menu):
+       * textmodes/reftex-index.el (reftex-display-index):
+       * textmodes/reftex-ref.el (reftex-offer-label-menu):
+       * textmodes/reftex-toc.el (reftex-toc):
+       Remove unnecessary bindings of default-major-mode (all are followed by
+       major-mode check and possible mode switch).
+
 2009-08-31  Nick Roberts  <address@hidden>
 
        * progmodes/gdb-mi.el (gdb-breakpoints-list-handler-custom):

Index: textmodes/reftex-cite.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/reftex-cite.el,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -b -r1.44 -r1.45
--- textmodes/reftex-cite.el    5 Jan 2009 03:24:09 -0000       1.44
+++ textmodes/reftex-cite.el    1 Sep 2009 03:02:35 -0000       1.45
@@ -821,14 +821,13 @@
           ;; Offer selection
           (save-window-excursion
             (delete-other-windows)
-            (let ((default-major-mode 'reftex-select-bib-mode))
               (reftex-kill-buffer "*RefTeX Select*")
               (switch-to-buffer-other-window "*RefTeX Select*")
               (unless (eq major-mode 'reftex-select-bib-mode)
                 (reftex-select-bib-mode))
               (let ((buffer-read-only nil))
                 (erase-buffer)
-                (reftex-insert-bib-matches found-list)))
+              (reftex-insert-bib-matches found-list))
             (setq buffer-read-only t)
             (if (= 0 (buffer-size))
                 (error "No matches found"))

Index: textmodes/reftex-index.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/reftex-index.el,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -b -r1.50 -r1.51
--- textmodes/reftex-index.el   22 Aug 2009 19:29:29 -0000      1.50
+++ textmodes/reftex-index.el   1 Sep 2009 03:02:35 -0000       1.51
@@ -424,8 +424,7 @@
 
     (if (get-buffer-window buffer-name)
         (select-window (get-buffer-window buffer-name))
-      (let ((default-major-mode 'reftex-index-mode))
-        (switch-to-buffer buffer-name)))
+      (switch-to-buffer buffer-name))
 
     (or (eq major-mode 'reftex-index-mode) (reftex-index-mode))
 

Index: textmodes/reftex-ref.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/reftex-ref.el,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -b -r1.36 -r1.37
--- textmodes/reftex-ref.el     5 Jan 2009 03:24:10 -0000       1.36
+++ textmodes/reftex-ref.el     1 Sep 2009 03:02:35 -0000       1.37
@@ -536,14 +536,13 @@
               (delete-other-windows)
               (setq reftex-call-back-to-this-buffer buf
                     reftex-latex-syntax-table (syntax-table))
-              (let ((default-major-mode 'reftex-select-label-mode))
                 (if reftex-use-multiple-selection-buffers
                     (switch-to-buffer-other-window
                      (save-excursion
                        (set-buffer buf)
                        (reftex-make-selection-buffer-name typekey)))
                   (switch-to-buffer-other-window "*RefTeX Select*")
-                  (reftex-erase-buffer)))
+                (reftex-erase-buffer))
               (unless (eq major-mode 'reftex-select-label-mode)
                 (reftex-select-label-mode))
               (add-to-list 'selection-buffers (current-buffer))

Index: textmodes/reftex-toc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/reftex-toc.el,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -b -r1.47 -r1.48
--- textmodes/reftex-toc.el     22 Aug 2009 19:29:29 -0000      1.47
+++ textmodes/reftex-toc.el     1 Sep 2009 03:02:35 -0000       1.48
@@ -170,8 +170,7 @@
            (floor (* (window-height)
                      reftex-toc-split-windows-fraction)))))
 
-      (let ((default-major-mode 'reftex-toc-mode))
-        (switch-to-buffer "*toc*")))
+      (switch-to-buffer "*toc*"))
 
     (or (eq major-mode 'reftex-toc-mode) (reftex-toc-mode))
     (set (make-local-variable 'reftex-docstruct-symbol) docstruct-symbol)