Mercurial > emacs

comparison lisp/progmodes/dcl-mode.el @ 77101:4ffc72fe7808

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(top-level): Move (require 'tempo) to start to quieten byte-compiler.
author Glenn Morris <rgm@gnu.org>
date Tue, 10 Apr 2007 04:01:05 +0000
parents e3694f1cb928
children c1ec1c8a8d2e 4ef881a120fe
comparison
equal deleted inserted replaced
77100:2a948dc24e41 77101:4ffc72fe7808
68 ;; * Handle DECK/EOD. 68 ;; * Handle DECK/EOD.
69 ;; * `indent list' commands: C-M-q, C-u TAB. What is a list in DCL? One 69 ;; * `indent list' commands: C-M-q, C-u TAB. What is a list in DCL? One
70 ;; complete command line? A block? A subroutine? 70 ;; complete command line? A block? A subroutine?
71 71
72 ;;; Code: 72 ;;; Code:
73
74 (require 'tempo)
75
73 76
74 ;;; *** Customization ***************************************************** 77 ;;; *** Customization *****************************************************
75 78
76 79
77 ;; First, font lock. This is a minimal approach, please improve! 80 ;; First, font lock. This is a minimal approach, please improve!
1933 ;;; *** Templates *********************************************************** 1936 ;;; *** Templates ***********************************************************
1934 ;; tempo seems to be the only suitable package among those included in 1937 ;; tempo seems to be the only suitable package among those included in
1935 ;; standard Emacs. I would have liked something closer to the functionality 1938 ;; standard Emacs. I would have liked something closer to the functionality
1936 ;; of LSE templates... 1939 ;; of LSE templates...
1937 1940
1938
1939 (require 'tempo)
1940 (defvar dcl-tempo-tags nil 1941 (defvar dcl-tempo-tags nil
1941 "Tempo tags for DCL mode.") 1942 "Tempo tags for DCL mode.")
1942 1943
1943 (tempo-define-template "dcl-f$context" 1944 (tempo-define-template "dcl-f$context"
1944 '("f$context" dcl-tempo-left-paren 1945 '("f$context" dcl-tempo-left-paren