branch: externals/auctex
commit 17d86b5f20988a5bf2818c590e7de06e17e07a8b
Author: Ikumi Keita <[email protected]>
Commit: Ikumi Keita <[email protected]>
Conform to elisp coding convention in context.el
* context.el (ConTeXt-numbered-section-heading,
ConTeXt-unnumbered-section-heading, ConTeXt-environment): Tailor
prompt string.
(ConTeXt-menu-update): Add "done" messages.
---
context.el | 17 +++++++++++++----
1 file changed, 13 insertions(+), 4 deletions(-)
diff --git a/context.el b/context.el
index d322afc..e42423b 100644
--- a/context.el
+++ b/context.el
@@ -508,7 +508,7 @@ in your .emacs file."
Insert this hook into `ConTeXt-numbered-section-hook' to allow the user to
change
the name of the sectioning command inserted with `\\[ConTeXt-section]'."
(let ((string (completing-read
- (concat "Select level: (default " name ") ")
+ (concat "Select level (default " name "): ")
ConTeXt-numbered-section-list
nil nil nil)))
;; Update name
@@ -520,7 +520,7 @@ the name of the sectioning command inserted with
`\\[ConTeXt-section]'."
Insert this hook into `ConTeXt-unnumbered-section-hook' to allow the user to
change
the name of the sectioning command inserted with `\\[ConTeXt-section]'."
(let ((string (completing-read
- (concat "Select level: (default " name ") ")
+ (concat "Select level (default " name "): ")
ConTeXt-unnumbered-section-list
nil nil nil)))
;; Update name
@@ -670,7 +670,7 @@ With optional ARG, modify current environment."
((TeX-near-bobp) "text")
(t ConTeXt-default-environment)))
(environment
- (completing-read (concat "Environment type: (default " default ") ")
+ (completing-read (concat "Environment type (default " default "): ")
ConTeXt-environment-list nil nil nil
'ConTeXt-environment-history default)))
;; Use `environment' as default for the next time only if it is different
@@ -1545,46 +1545,55 @@ else. There might be text before point."
(setq ConTeXt-menu-changed nil)
(message "Updating section menu...")
(mapc #'ConTeXt-section-enable ConTeXt-section-list)
+ (message "Updating section menu...done")
(message "Updating environment menu...")
(easy-menu-change '("ConTeXt") ConTeXt-environment-menu-name
(LaTeX-split-long-menu
(mapcar #'ConTeXt-environment-menu-entry
(ConTeXt-environment-list))))
+ (message "Updating environment menu...done")
(message "Updating modify environment menu...")
(easy-menu-change '("ConTeXt") ConTeXt-environment-modify-menu-name
(LaTeX-split-long-menu
(mapcar #'ConTeXt-environment-modify-menu-entry
(ConTeXt-environment-list))))
+ (message "Updating modify environment menu...done")
(message "Updating define menu...")
(easy-menu-change '("ConTeXt") ConTeXt-define-menu-name
(LaTeX-split-long-menu
(mapcar #'ConTeXt-define-menu-entry
ConTeXt-define-list)))
+ (message "Updating define menu...done")
(message "Updating setup menu...")
(easy-menu-change '("ConTeXt") ConTeXt-setup-menu-name
(LaTeX-split-long-menu
(mapcar #'ConTeXt-setup-menu-entry
ConTeXt-setup-list)))
+ (message "Updating setup menu...done")
(message "Updating referencing menu...")
(easy-menu-change '("ConTeXt") ConTeXt-referencing-menu-name
(LaTeX-split-long-menu
(mapcar #'ConTeXt-referencing-menu-entry
ConTeXt-referencing-list)))
+ (message "Updating referencing menu...done")
(message "Updating other macro's menu...")
(easy-menu-change '("ConTeXt") ConTeXt-other-macro-menu-name
(LaTeX-split-long-menu
(mapcar #'ConTeXt-other-macro-menu-entry
ConTeXt-other-macro-list)))
+ (message "Updating other macro's menu...done")
(message "Updating project structure menu...")
(easy-menu-change '("ConTeXt") ConTeXt-project-structure-menu-name
(LaTeX-split-long-menu
(mapcar #'ConTeXt-project-structure-menu-entry
ConTeXt-project-structure-list)))
+ (message "Updating project structure menu...done")
(message "Updating section block menu...")
(easy-menu-change '("ConTeXt") ConTeXt-section-block-menu-name
(LaTeX-split-long-menu
(mapcar #'ConTeXt-section-block-menu-entry
ConTeXt-section-block-list)))
+ (message "Updating section block menu...done")
(message "Updating section menu...")
(easy-menu-change '("ConTeXt") ConTeXt-numbered-section-menu-name
(LaTeX-split-long-menu
@@ -1594,7 +1603,7 @@ else. There might be text before point."
(LaTeX-split-long-menu
(mapcar #'ConTeXt-unnumbered-section-menu-entry
ConTeXt-unnumbered-section-list)))
- (message "Updating...done")
+ (message "Updating section menu...done")
(and menu (easy-menu-return-item ConTeXt-mode-menu menu))
)))
