[AUCTeX-diffs] Changes to auctex/context.el,v

[Berend de Boer]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Berend de Boer <berenddeboer>   08/07/03 21:43:36

Index: context.el
===================================================================
RCS file: /cvsroot/auctex/auctex/context.el,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -b -r1.66 -r1.67
--- context.el  25 May 2008 06:50:31 -0000      1.66
+++ context.el  3 Jul 2008 21:43:36 -0000       1.67
@@ -145,6 +145,23 @@
   (ConTeXt-arg-setup nil))
 
 
+;; Referencing ConTeXt macro's
+
+(defvar ConTeXt-referencing-list ()
+  "Calls ConTeXt-XX-other-macro-list where XX is the current interface.")
+
+(defun ConTeXt-referencing-command (what)
+  "The ConTeXt macro to call WHAT is itself, no interface specific calls."
+  what)
+
+(defun ConTeXt-insert-referencing (what)
+  "Insert the ConTeXt referencing SETUP."
+  (insert TeX-esc (ConTeXt-referencing-command what))
+  (newline)
+  (indent-according-to-mode)
+  (ConTeXt-arg-setup nil))
+
+
 ;; Other ConTeXt macro's
 
 (defvar ConTeXt-other-macro-list ()
@@ -1247,6 +1264,17 @@
   "Insert SETUP from menu."
   (ConTeXt-insert-setup setup))
 
+;; ConTeXt referencing macros
+(defvar ConTeXt-referencing-menu-name "Referencing")
+
+(defun ConTeXt-referencing-menu-entry (entry)
+  "Create an entry for the referencing menu."
+  (vector entry (list 'ConTeXt-referencing-menu entry)))
+
+(defun ConTeXt-referencing-menu (referencing)
+  "Insert REFERENCING from menu."
+  (ConTeXt-insert-referencing referencing))
+
 ;; ConTeXt other macros
 (defvar ConTeXt-other-macro-menu-name "Other macro")
 
@@ -1421,6 +1449,11 @@
                          (LaTeX-split-long-menu
                           (mapcar 'ConTeXt-setup-menu-entry
                                   ConTeXt-setup-list)))
+       (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 other macro's menu...")
        (easy-menu-change '("ConTeXt") ConTeXt-other-macro-menu-name
                          (LaTeX-split-long-menu
@@ -1472,7 +1505,7 @@
 ;; They are mapped to interface specific variables
 
 (defvar ConTeXt-language-variable-list
-  '(ConTeXt-define-list ConTeXt-setup-list ConTeXt-other-macro-list
+  '(ConTeXt-define-list ConTeXt-setup-list ConTeXt-referencing-list 
ConTeXt-other-macro-list
            ConTeXt-project-structure-list
            ConTeXt-section-block-list ConTeXt-section-list
                       ConTeXt-text ConTeXt-item-list))