1. xemacs
  2. auctex

Source

auctex / context-en.el

Diff from to

File context-en.el

 
 ;; You should have received a copy of the GNU General Public License
 ;; along with AUCTeX; see the file COPYING.  If not, write to the Free
-;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
-;; 02110-1301, USA.
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;; 02111-1307, USA.
 
 ;;; Commentary:
 
 (defvar ConTeXt-environment-list-en
   '("alignment" "appendices"
     "background" "backmatter" "bodymatter" "bodypart" "buffer"
-    "code" "color" "columns" "combination"
+    "color" "columns" "combination"
     "encoding" "extroductions"
-    "fact" "formula" "framedcode" "framedtext" "frontmatter"
+    "fact" "formula" "framedtext" "frontmatter"
     "helptext" "hiding"
     "itemize"
     "legend" "line" "linecorrection" "linenumbering" "lines"
     "makeup" "mapping" "marginblock" "marginedge" "marginrule" "mode"
     "narrower" "notmode"
     "opposite"
-    "packed" "pagecomment" "pagefigure" "positioning" "postponing"
+    "packed" "positioning" "postponing"
     "quotation"
     "raster" "register"
     "standardmakeup"
-    "table" "tabulate" "TEXpage" "text" "textbackground" "typing"
+    "table" "tabulate" "text" "textbackground" "typing"
     "unpacked"
     ;; project structure
     "component" "environment" "product" "project"
     "uniqueMPgraphic")
   "List of the ConTeXt en interface start/stop pairs.")
 
-(defvar ConTeXt-define-list-en
-  '("accent"
-    "background" "blank" "block" "blocks" "bodyfont" "bodyfontenvironment"
-    "buffer"
-    "casemap" "character" "color" "colorgroup" "combinedlist" "command"
-    "description" "enumeration"
-    "float" "font" "fontsynonym" "framedtext" "head"
-    "indenting" "label"
-    "logo" "overlay"
-    "palet" "program" "startstop" "type" "typing")
-  "List of the names of ConTeXt en interface  macro's that define things.")
-
 (defvar ConTeXt-setup-list-en
   '("align" "arranging" "background" "backgrounds" "blackrules"
     "blank" "block" "bodyfont" "bodyfontenvironment" "bottom"
     "floats" "footer" "footertexts" "footnodedefinition" "footnotes"
     "framed" "framedtexts" "head" "header" "headertexts" "headnumber"
     "heads" "headtext" "hyphenmark" "indentations" "indenting" "inmargin"
-    "interlinespace" "itemize" "items" "labeltext" "language" "layout"
+    "inerlinespace" "itemize" "items" "labeltext" "language" "layout"
     "linenumbering" "lines" "list" "makeup" "marginblocks"
-    "marginrules" "marking" "narrower" "oppositeplacing"
-    "pagecomment" "pagenumber" "pagenumbering" "palet" "papersize" "paragraphs"
-    "quote" "referencing" "register"
-    "screens" "section" "sectionblock" "sorting" "spacing"
+    "marginrules" "marking" "narrower" "oppositeplacing" "pagenumber"
+    "pagenumbering" "palet" "papersize" "paragraphs" "quote" "referencing"
+    "register" "screens" "section" "sectionblock" "sorting" "spacing"
     "subpagenumber" "synonyms" "text" "textrules" "texttexts" "thinrules"
     "tolerance" "top" "toptexts" "type" "typing" "underbar" "whitespace")
   "List of the names of ConTeXt en interface  macro's that setup things.")
 
-;; lists some place macro's as well, should perhaps be under separate menu
-(defvar ConTeXt-other-macro-list-en
-  '("adaptlayout" "at" "combinepages" "copypages"
-    "externalfigure" "framed" "from" "input" "insertpages" "filterpages"
-    "getbuffer" "goto"
-    "leftaligned" "midaligned"
-    "obeyspaces"
-    "page" "placeexternalfigure" "placefigure" "placelogos" "placetable"
-    "protect"
-    "raggedcenter" "rightaligned" "rotate"
-    "scale" "showexternalfigures" "slicepages"
-    "useexternalfigure" "unprotect" "url" "usemodule")
-  "List of ConTeXt en interface macro's that are not an environment nor a setup.")
-
-(defun ConTeXt-define-command-en (what)
-  "The ConTeXt en interface way of creating a define command."
-  (concat "define" what))
-
 (defun ConTeXt-setup-command-en (what)
   "The ConTeXt en interface way of creating a setup command."
   (concat "setup" what))
   (TeX-add-symbols
    '("but" ConTeXt-arg-define-ref (TeX-arg-literal " "))
    '("item" ConTeXt-arg-define-ref (TeX-arg-literal " "))
-   '("items" [ConTeXt-arg-setup] (TeX-arg-string "Comma separated list"))
+   '("items" (ConTeXt-arg-setup t) (TeX-arg-string "Comma separated list"))
    '("its" ConTeXt-arg-define-ref (TeX-arg-literal " "))
    '("nop" (TeX-arg-literal " "))
    '("ran" TeX-arg-string (TeX-arg-literal " "))
 of context-mode-hook."
   (interactive)
   ;; set the ConTeXt interface
-  (setq ConTeXt-current-interface "en")
+  (set (make-local-variable 'ConTeXt-current-interface) "en")
 
   ;; initialization
   (ConTeXt-mode-common-initialization)