mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Remove unnecessary bindings of default-major-mode (all are followed by

Browse source 
major-mode check and possible mode switch).
This commit is contained in:
Glenn Morris 2009-09-01 03:02:25 +00:00
parent d7fbf3f0d3
commit d63eb0e7b4
5 changed files with 48 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -1,3 +1,12 @@
2009-09-01 Glenn Morris <rgm@gnu.org>
* 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 <nickrob@snap.net.nz>
* progmodes/gdb-mi.el (gdb-breakpoints-list-handler-custom):

3
lisp/textmodes/reftex-cite.el
View file

@ -821,14 +821,13 @@ While entering the regexp, completion on knows citation keys is possible.
;; 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"))

3
lisp/textmodes/reftex-index.el
View file

@ -424,8 +424,7 @@ With prefix 3, restrict index to region."
(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))

3
lisp/textmodes/reftex-ref.el
View file

@ -536,14 +536,13 @@ When called with 2 C-u prefix args, disable magic word recognition."
(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))

3
lisp/textmodes/reftex-toc.el
View file

@ -170,8 +170,7 @@ When called with a raw C-u prefix, rescan the document first."
(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)