[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/auctex 5b0b215 03/78: Setup preview menu/keymap only on
From: |
Tassilo Horn |
Subject: |
[elpa] externals/auctex 5b0b215 03/78: Setup preview menu/keymap only once. |
Date: |
Mon, 19 Oct 2015 09:10:37 +0000 |
branch: externals/auctex
commit 5b0b2154fc5b2fb2e52fb89e3f43a3a89087b14c
Author: Tassilo Horn <address@hidden>
Commit: Tassilo Horn <address@hidden>
Setup preview menu/keymap only once.
* preview.el.in (LaTeX-preview-setup): Setup menu and keymap only
once.
---
ChangeLog | 5 +++
preview.el.in | 79 +++++++++++++++++++++++++++++---------------------------
2 files changed, 46 insertions(+), 38 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 9809c70..04b7dd3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2015-08-10 Tassilo Horn <address@hidden>
+
+ * preview.el.in (LaTeX-preview-setup): Setup menu and keymap only
+ once.
+
2015-08-09 Arash Esbati <address@hidden>
* style/enumitem.el ("enumitem"): Cater for the starred version of
diff --git a/preview.el.in b/preview.el.in
index b26cf0a..2eee66e 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -2490,44 +2490,47 @@ pp")
"Hook function for embedding the preview package into AUCTeX.
This is called by `LaTeX-mode-hook' and changes AUCTeX variables
to add the preview functionality."
- (remove-hook 'LaTeX-mode-hook #'LaTeX-preview-setup)
- (add-hook 'LaTeX-mode-hook #'preview-mode-setup)
- (define-key LaTeX-mode-map "\C-c\C-p" preview-map)
- (easy-menu-define preview-menu LaTeX-mode-map
- "This is the menu for preview-latex."
- '("Preview"
- "Generate previews"
- ["(or toggle) at point" preview-at-point]
- ["for environment" preview-environment]
- ["for section" preview-section]
- ["for region" preview-region (preview-mark-active)]
- ["for buffer" preview-buffer]
- ["for document" preview-document]
- "---"
- "Remove previews"
- ["at point" preview-clearout-at-point]
- ["from section" preview-clearout-section]
- ["from region" preview-clearout (preview-mark-active)]
- ["from buffer" preview-clearout-buffer]
- ["from document" preview-clearout-document]
- "---"
- "Turn preamble cache"
- ["on" preview-cache-preamble]
- ["off" preview-cache-preamble-off]
- "---"
- ("Customize"
- ["Browse options"
- (customize-group 'preview)]
- ["Extend this menu"
- (easy-menu-add-item
- nil '("Preview")
- (customize-menu-create 'preview))])
- ["Read documentation" preview-goto-info-page]
- ["Report Bug" preview-report-bug]))
- (if (eq major-mode 'latex-mode)
- (preview-mode-setup))
- (if (boundp 'desktop-buffer-misc)
- (preview-buffer-restore desktop-buffer-misc)))
+ ;; This has to be done only once.
+ (unless (and (boundp 'LaTeX-mode-hook)
+ (memq #'preview-mode-setup LaTeX-mode-hook))
+ (remove-hook 'LaTeX-mode-hook #'LaTeX-preview-setup)
+ (add-hook 'LaTeX-mode-hook #'preview-mode-setup)
+ (define-key LaTeX-mode-map "\C-c\C-p" preview-map)
+ (easy-menu-define preview-menu LaTeX-mode-map
+ "This is the menu for preview-latex."
+ '("Preview"
+ "Generate previews"
+ ["(or toggle) at point" preview-at-point]
+ ["for environment" preview-environment]
+ ["for section" preview-section]
+ ["for region" preview-region (preview-mark-active)]
+ ["for buffer" preview-buffer]
+ ["for document" preview-document]
+ "---"
+ "Remove previews"
+ ["at point" preview-clearout-at-point]
+ ["from section" preview-clearout-section]
+ ["from region" preview-clearout (preview-mark-active)]
+ ["from buffer" preview-clearout-buffer]
+ ["from document" preview-clearout-document]
+ "---"
+ "Turn preamble cache"
+ ["on" preview-cache-preamble]
+ ["off" preview-cache-preamble-off]
+ "---"
+ ("Customize"
+ ["Browse options"
+ (customize-group 'preview)]
+ ["Extend this menu"
+ (easy-menu-add-item
+ nil '("Preview")
+ (customize-menu-create 'preview))])
+ ["Read documentation" preview-goto-info-page]
+ ["Report Bug" preview-report-bug]))
+ (if (eq major-mode 'latex-mode)
+ (preview-mode-setup))
+ (if (boundp 'desktop-buffer-misc)
+ (preview-buffer-restore desktop-buffer-misc))))
(defun preview-clean-subdir (dir)
"Cleans out a temporary DIR with preview image files."
- [elpa] externals/auctex updated (62aca31 -> 2f22938), Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 79c02c9 01/78: Make lengths available through `LaTeX-add-lengths'., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex e88f11f 04/78: Fix error when preview isn't loaded (intentionally), Tassilo Horn, 2015/10/19
- [elpa] externals/auctex c896f96 05/78: Fix the subgroup number in a regex., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 5b0b215 03/78: Setup preview menu/keymap only once.,
Tassilo Horn <=
- [elpa] externals/auctex 2648a58 06/78: New function to read labels., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex be9f14a 02/78: Add the missing starred version of \AddEnumerateCounter., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 30be9cc 09/78: Add support for prettify-symbols-mode, Tassilo Horn, 2015/10/19
- [elpa] externals/auctex eff71a7 10/78: Change | syntax to punctuation; fixes bug#21366, Tassilo Horn, 2015/10/19
- [elpa] externals/auctex a4d23f6 07/78: Add menu and new functions for error overview., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex a85d7c6 15/78: Add support for undocumented macros `\captionbox[*]'., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex a3e3ab8 14/78: Add new style transparent.el., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 8d5acb0 13/78: Do not indent the content of `filecontents[*]' env., Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 57338ec 24/78: Improve my last commit, Tassilo Horn, 2015/10/19
- [elpa] externals/auctex 400609e 18/78: New TeX--if-macro-fboundp compatibility macro, Tassilo Horn, 2015/10/19