--- /dev/null
+;;; tt-mode-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+
+(add-to-list 'load-path (directory-file-name
+ (or (file-name-directory #$) (car load-path))))
+
+\f
+;;;### (autoloads nil "tt-mode" "tt-mode.el" (0 0 0 0))
+;;; Generated autoloads from tt-mode.el
+
+(autoload 'tt-mode "tt-mode" "\
+Major mode for editing Template Toolkit files
+
+\(fn)" t nil)
+
+(add-to-list 'auto-mode-alist '("\\.tt\\'" . tt-mode))
+
+(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "tt-mode" '("tt-")))
+
+;;;***
+\f
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; tt-mode-autoloads.el ends here
--- /dev/null
+;;; -*- no-byte-compile: t -*-
+(define-package "tt-mode" "20130804.1110" "Emacs major mode for editing Template Toolkit files." 'nil :commit "85ed3832e7eef391f7879d9990d59c7a3493c15e" :authors '(("Dave Cross" . "daveNOSPAMdave.org.uk")) :maintainer '("Dave Cross" . "daveNOSPAMdave.org.uk"))
--- /dev/null
+;;; tt-mode.el --- Emacs major mode for editing Template Toolkit files.
+;; Package-Version: 20130804.1110
+;;
+;; Copyright (c) 2002 Dave Cross, all rights reserved.
+;;
+;; This file may be distributed under the same terms as GNU Emacs.
+;;
+;; $Id$
+;;
+;; This file adds simple font highlighting of TT directives when you are
+;; editing Template Toolkit files.
+;;
+;; I usually give these files an extension of .tt and in order to automatically
+;; invoke this mode for these files, I have the following in my .emacs file.
+;;
+;; (setq load-path
+;; (cons "/home/dave/xemacs" load-path))
+;; (autoload 'tt-mode "tt-mode")
+;; (setq auto-mode-alist
+;; (append '(("\\.tt$" . tt-mode)) auto-mode-alist ))
+;;
+;; Something similar may well work for you.
+;;
+;; Author: Dave Cross <daveNOSPAMdave.org.uk>
+;;
+;; Some enhancements by Steve Sanbeg
+;;
+
+(require 'font-lock)
+
+(defvar tt-mode-hook nil
+ "List of functions to call when entering TT mode")
+
+(defvar tt-keywords
+ (concat "\\b\\(?:"
+ (regexp-opt (list "GET" "CALL" "SET" "DEFAULT" "INSERT" "INCLUDE"
+ "BLOCK" "END" "PROCESS" "WRAPPER" "IF" "UNLESS"
+ "ELSIF" "ELSE" "SWITCH" "CASE" "FOR" "FOREACH"
+ "WHILE" "FILTER" "USE" "MACRO" "PERL" "RAWPERL"
+ "TRY" "THROW" "CATCH" "FINAL" "LAST" "RETURN"
+ "STOP" "CLEAR" "META" "TAGS"))
+ "\\)\\b"))
+
+(defvar tt-font-lock-keywords
+ (list
+ ;; Fontify [& ... &] expressions
+ '("\\(\\[%[-+]?\\)\\(\\(.\\|\n\\)+?\\)\\([-+]?%\\]\\)"
+ (1 font-lock-builtin-face t)
+ (2 font-lock-variable-name-face t)
+ (4 font-lock-builtin-face t))
+
+ '("\\[% *\\([a-z_0-9]*\\) *%\\]"
+ (1 font-lock-constant-face t))
+
+ ;;line comment - doesn't find multiple comments in a block yet.
+ '("\\[%\\(.\\|\n\\)+?\\(#.*?\\)\\(\n\\|%\\]\\)"
+ (2 font-lock-comment-face t))
+
+ ;;block comment
+ '("\\[%\\(#\\(.\\|\n\\)*?\\)%\\]"
+ (1 font-lock-comment-face t))
+
+ ;; Look for keywords within those expressions
+ (list (concat
+ "\\(\\[%[-+]?\\|;\\)\\(\\s-\\|\n\\)*\\("
+ tt-keywords
+ "\\)")
+ 3 font-lock-keyword-face t)
+ )
+
+ "Expressions to font-lock in tt-mode.")
+
+;;single quote strings should highlight the same as double quote
+(defvar tt-mode-syntax-table
+ (let ((table (make-syntax-table)))
+ (modify-syntax-entry ?' "\"" table)
+ (modify-syntax-entry ?% "." table)
+ table))
+
+;;;###autoload
+(defun tt-mode ()
+ "Major mode for editing Template Toolkit files"
+ (interactive)
+ (kill-all-local-variables)
+ (setq major-mode 'tt-mode
+ mode-name "TT")
+
+ (set-syntax-table tt-mode-syntax-table)
+
+ (if (string-match "Xemacs" emacs-version)
+ (progn
+ (make-local-variable 'font-lock-keywords)
+ (setq font-lock-keywords tt-font-lock-keywords))
+ ;; Emacs
+ (make-local-variable 'font-lock-defaults)
+ (setq font-lock-defaults '(tt-font-lock-keywords nil t))
+ )
+ (font-lock-mode t)
+ (run-mode-hooks 'tt-mode-hook))
+
+;;;###autoload
+(add-to-list 'auto-mode-alist '("\\.tt\\'" . tt-mode))
+
+(provide 'tt-mode)
+
+;;; tt-mode.el ends here
+++ /dev/null
-;;; tt-mode-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
-\f
-;;;### (autoloads nil "tt-mode" "tt-mode.el" (23073 12487 679078
-;;;;;; 893000))
-;;; Generated autoloads from tt-mode.el
-
-(autoload 'tt-mode "tt-mode" "\
-Major mode for editing Template Toolkit files
-
-\(fn)" t nil)
-
-(add-to-list 'auto-mode-alist '("\\.tt\\'" . tt-mode))
-
-;;;***
-\f
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; End:
-;;; tt-mode-autoloads.el ends here
+++ /dev/null
-;;; -*- no-byte-compile: t -*-
-(define-package "tt-mode" "20130804.410" "Emacs major mode for editing Template Toolkit files." 'nil :commit "85ed3832e7eef391f7879d9990d59c7a3493c15e")
+++ /dev/null
-;;; tt-mode.el --- Emacs major mode for editing Template Toolkit files.
-;; Package-Version: 20130804.410
-;;
-;; Copyright (c) 2002 Dave Cross, all rights reserved.
-;;
-;; This file may be distributed under the same terms as GNU Emacs.
-;;
-;; $Id$
-;;
-;; This file adds simple font highlighting of TT directives when you are
-;; editing Template Toolkit files.
-;;
-;; I usually give these files an extension of .tt and in order to automatically
-;; invoke this mode for these files, I have the following in my .emacs file.
-;;
-;; (setq load-path
-;; (cons "/home/dave/xemacs" load-path))
-;; (autoload 'tt-mode "tt-mode")
-;; (setq auto-mode-alist
-;; (append '(("\\.tt$" . tt-mode)) auto-mode-alist ))
-;;
-;; Something similar may well work for you.
-;;
-;; Author: Dave Cross <daveNOSPAMdave.org.uk>
-;;
-;; Some enhancements by Steve Sanbeg
-;;
-
-(require 'font-lock)
-
-(defvar tt-mode-hook nil
- "List of functions to call when entering TT mode")
-
-(defvar tt-keywords
- (concat "\\b\\(?:"
- (regexp-opt (list "GET" "CALL" "SET" "DEFAULT" "INSERT" "INCLUDE"
- "BLOCK" "END" "PROCESS" "WRAPPER" "IF" "UNLESS"
- "ELSIF" "ELSE" "SWITCH" "CASE" "FOR" "FOREACH"
- "WHILE" "FILTER" "USE" "MACRO" "PERL" "RAWPERL"
- "TRY" "THROW" "CATCH" "FINAL" "LAST" "RETURN"
- "STOP" "CLEAR" "META" "TAGS"))
- "\\)\\b"))
-
-(defvar tt-font-lock-keywords
- (list
- ;; Fontify [& ... &] expressions
- '("\\(\\[%[-+]?\\)\\(\\(.\\|\n\\)+?\\)\\([-+]?%\\]\\)"
- (1 font-lock-builtin-face t)
- (2 font-lock-variable-name-face t)
- (4 font-lock-builtin-face t))
-
- '("\\[% *\\([a-z_0-9]*\\) *%\\]"
- (1 font-lock-constant-face t))
-
- ;;line comment - doesn't find multiple comments in a block yet.
- '("\\[%\\(.\\|\n\\)+?\\(#.*?\\)\\(\n\\|%\\]\\)"
- (2 font-lock-comment-face t))
-
- ;;block comment
- '("\\[%\\(#\\(.\\|\n\\)*?\\)%\\]"
- (1 font-lock-comment-face t))
-
- ;; Look for keywords within those expressions
- (list (concat
- "\\(\\[%[-+]?\\|;\\)\\(\\s-\\|\n\\)*\\("
- tt-keywords
- "\\)")
- 3 font-lock-keyword-face t)
- )
-
- "Expressions to font-lock in tt-mode.")
-
-;;single quote strings should highlight the same as double quote
-(defvar tt-mode-syntax-table
- (let ((table (make-syntax-table)))
- (modify-syntax-entry ?' "\"" table)
- (modify-syntax-entry ?% "." table)
- table))
-
-;;;###autoload
-(defun tt-mode ()
- "Major mode for editing Template Toolkit files"
- (interactive)
- (kill-all-local-variables)
- (setq major-mode 'tt-mode
- mode-name "TT")
-
- (set-syntax-table tt-mode-syntax-table)
-
- (if (string-match "Xemacs" emacs-version)
- (progn
- (make-local-variable 'font-lock-keywords)
- (setq font-lock-keywords tt-font-lock-keywords))
- ;; Emacs
- (make-local-variable 'font-lock-defaults)
- (setq font-lock-defaults '(tt-font-lock-keywords nil t))
- )
- (font-lock-mode t)
- (run-mode-hooks 'tt-mode-hook))
-
-;;;###autoload
-(add-to-list 'auto-mode-alist '("\\.tt\\'" . tt-mode))
-
-(provide 'tt-mode)
-
-;;; tt-mode.el ends here
projects / emacsconfig.git / commitdiff