Mercurial > emacs
comparison lisp/textmodes/reftex-toc.el @ 104768:17d2ae0948e2
Remove unnecessary bindings of default-major-mode (all are followed by
major-mode check and possible mode switch).
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 01 Sep 2009 03:02:25 +0000 |
parents | da8b3e61b182 |
children | f8ba8d6fd250 |
comparison
equal
deleted
inserted
replaced
104767:8d8d06eea864 | 104768:17d2ae0948e2 |
---|---|
168 reftex-toc-split-windows-fraction))) | 168 reftex-toc-split-windows-fraction))) |
169 (split-window-vertically | 169 (split-window-vertically |
170 (floor (* (window-height) | 170 (floor (* (window-height) |
171 reftex-toc-split-windows-fraction))))) | 171 reftex-toc-split-windows-fraction))))) |
172 | 172 |
173 (let ((default-major-mode 'reftex-toc-mode)) | 173 (switch-to-buffer "*toc*")) |
174 (switch-to-buffer "*toc*"))) | |
175 | 174 |
176 (or (eq major-mode 'reftex-toc-mode) (reftex-toc-mode)) | 175 (or (eq major-mode 'reftex-toc-mode) (reftex-toc-mode)) |
177 (set (make-local-variable 'reftex-docstruct-symbol) docstruct-symbol) | 176 (set (make-local-variable 'reftex-docstruct-symbol) docstruct-symbol) |
178 (setq reftex-toc-include-labels-indicator | 177 (setq reftex-toc-include-labels-indicator |
179 (if (eq reftex-toc-include-labels t) | 178 (if (eq reftex-toc-include-labels t) |