;;
;; Copyright (C) 1997 Free Software Foundation, Inc.
;;
-;; Author: Peter Breton <pbreton@i-kinetics.com>
+;; Author: Peter Breton <pbreton@cs.umb.edu>
;; Created: Fri Sep 27 1996
;; Keywords: generic, comment, font-lock
;;
;; * List of keywords to font-lock. Each keyword should be a string.
;; If you have additional keywords which should be highlighted in a face
-;; different from 'font-lock-keyword-face', you can use the convenience
-;; function 'generic-make-keywords-list' (which see), and add the
+;; different from `font-lock-keyword-face', you can use the convenience
+;; function `generic-make-keywords-list' (which see), and add the
;; result to the following list:
;;
;; * Additional expressions to font-lock. This should be a list of
;; expressions, each of which should be of the same form
-;; as those in 'font-lock-defaults-alist'.
+;; as those in `font-lock-defaults-alist'.
;;
;; * List of regular expressions to be placed in auto-mode-alist.
;;
;;
;; DEFINING NEW GENERIC MODES:
;;
-;; Use the 'define-generic-mode' function to define new modes.
+;; Use the `define-generic-mode' function to define new modes.
;; For example:
;;
-;; (require 'generic-mode)
+;; (require 'generic)
;; (define-generic-mode 'foo-generic-mode
;; (list ?% )
;; (list "keyword")
;; (list "\.FOO")
;; (list 'foo-setup-function))
;;
-;; defines a new generic-mode 'foo-generic-mode', which has '%' as a
-;; comment character, and "keyword" as a keyword. When files which end in
+;; defines a new generic-mode `foo-generic-mode', which has '%' as a
+;; comment character, and "keyword" as a keyword. When files which end in
;; '.FOO' are loaded, Emacs will go into foo-generic-mode and call
-;; foo-setup-function. You can also use the function 'foo-generic-mode'
+;; foo-setup-function. You can also use the function `foo-generic-mode'
;; (which is interactive) to put a buffer into foo-generic-mode.
;;
;; AUTOMATICALLY ENTERING GENERIC MODE:
;;
;; Generic-mode provides a hook which automatically puts a
;; file into default-generic-mode if the first few lines of a file in
-;; fundamental mode start with a hash comment character. To disable
-;; this functionality, set the variable 'generic-use-find-file-hook'
-;; to nil BEFORE loading generic-mode. See the variables
-;; 'generic-lines-to-scan' and 'generic-find-file-regexp' for customization
+;; fundamental mode start with a hash comment character. To disable
+;; this functionality, set the variable `generic-use-find-file-hook'
+;; to nil BEFORE loading generic-mode. See the variables
+;; `generic-lines-to-scan' and `generic-find-file-regexp' for customization
;; options.
;;
;; GOTCHAS:
;;; Code:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Variables
+;; Internal Variables
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(make-variable-buffer-local
Do not add entries to this list directly; use `define-generic-mode'
instead (which see).")
-(defvar generic-use-find-file-hook t
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Customization Variables
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defgroup generic nil
+ "Define simple major modes with comment and font-lock support."
+ :prefix "generic-"
+ :group 'extensions)
+
+(defcustom generic-use-find-file-hook t
"*If non-nil, add a hook to enter default-generic-mode automatically
if the first few lines of a file in fundamental mode start with a hash
-comment character.")
+comment character."
+ :group 'generic
+ :type 'boolean
+ )
-(defvar generic-lines-to-scan 3
+(defcustom generic-lines-to-scan 3
"*Number of lines that `generic-mode-find-file-hook' looks at
when deciding whether to enter generic-mode automatically.
-This variable should be set to a small positive number.")
+This variable should be set to a small positive number."
+ :group 'generic
+ :type 'integer
+ )
-(defvar generic-find-file-regexp "#.*\n\\(.*\n\\)?"
+(defcustom generic-find-file-regexp "#.*\n\\(.*\n\\)?"
"*Regular expression used by `generic-mode-find-file-hook'
to determine if files in fundamental mode should be put into
-`default-generic-mode' instead.")
+`default-generic-mode' instead."
+ :group 'generic
+ :type 'regexp
+ )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Inline functions
(defsubst generic-mode-sanity-check (name comment-list keyword-list
font-lock-list auto-mode-list
function-list &optional description)
- (if (not (symbolp name))
+ (and (not (symbolp name))
(error "%s is not a symbol" (princ name)))
(mapcar '(lambda (elt)
(list comment-list keyword-list font-lock-list
auto-mode-list function-list))
- (if (not (or (null description) (stringp description)))
+ (and (not (or (null description) (stringp description)))
(error "Description must be a string or nil"))
)
;; Functions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;### autoload
+;;;###autoload
(defun define-generic-mode (name comment-list keyword-list font-lock-list
auto-mode-list function-list
&optional description)
(error "%s is not a list" (princ auto-mode-list)))
(let ((new-mode (intern (symbol-name mode))))
- (if remove-old
- (let ((auto-mode-entry))
- (while (setq auto-mode-entry (rassq new-mode auto-mode-alist))
- (setq auto-mode-alist
- (delq auto-mode-entry
- auto-mode-alist)))))
+ (and remove-old
+ (let ((auto-mode-entry))
+ (while (setq auto-mode-entry (rassq new-mode auto-mode-alist))
+ (setq auto-mode-alist
+ (delq auto-mode-entry
+ auto-mode-alist)))))
(mapcar '(lambda (entry)
(generic-add-auto-mode-entry new-mode entry prepend))
(generic-mode-list (assoc type generic-mode-alist))
)
- (if (not generic-mode-list)
- (error "Can't find generic-mode information for type %s"
- (princ generic-mode-name)))
+ (and (not generic-mode-list)
+ (error "Can't find generic-mode information for type %s"
+ (princ generic-mode-name)))
;; Put this after the point where we read generic-mode-name!
(kill-all-local-variables)
generic-keywords-list (nth 2 generic-mode-list)
generic-font-lock-expressions (nth 3 generic-mode-list)
generic-mode-function-list (nth 5 generic-mode-list)
- major-mode 'generic-mode
+ major-mode type
mode-name (symbol-name type)
)
(setq font-lock-defaults (list 'generic-font-lock-defaults nil))
;; Call a list of functions
- (if generic-mode-function-list
- (mapcar 'funcall generic-mode-function-list))
+ (and generic-mode-function-list
+ (mapcar 'funcall generic-mode-function-list))
)
)
comment))
)
(generic-mode-set-comment-char comment)))
- (if (consp comment)
- (generic-mode-set-comment-pair comment)))
+ (and (consp comment)
+ (generic-mode-set-comment-pair comment)))
(defun generic-mode-set-comment-char (comment-char)
"Set the given character as a comment character for generic mode."
)
;; Sanity checks
- (if (not (and (stringp generic-comment-start)
- (stringp generic-comment-end)))
- (error "Elements of cons pair must be strings"))
- (if (not (and (equal (length generic-comment-start) 2)
- (equal (length generic-comment-end) 2)))
+ (and (not (and (stringp generic-comment-start)
+ (stringp generic-comment-end)))
+ (error "Elements of cons pair must be strings"))
+ (and (not (and (equal (length generic-comment-start) 2)
+ (equal (length generic-comment-end) 2)))
(error "Start and end must be exactly two characters long"))
(let ((first (elt generic-comment-start 0))
"Set up font-lock functionality for generic mode."
(let ((generic-font-lock-expressions))
;; Keywords
- (if keywords
+ (and keywords
(setq
generic-font-lock-expressions
(append
- (list
- (list
- (concat
- "\\(\\<"
- (mapconcat 'identity keywords "\\>\\|\\<")
- "\\>\\)")
- 1 'font-lock-keyword-face))
+ (list (let ((regexp (regexp-opt keywords)))
+ (list (concat "\\<\\(" regexp "\\)\\>")
+ 1
+ 'font-lock-keyword-face)))
generic-font-lock-expressions)))
;; Other font-lock expressions
- (if font-lock-expressions
+ (and font-lock-expressions
(setq generic-font-lock-expressions
(append
font-lock-expressions
generic-font-lock-expressions)))
- (if (not (or font-lock-expressions keywords))
- nil
- (setq generic-font-lock-defaults generic-font-lock-expressions))
+ (and (or font-lock-expressions keywords)
+ (setq generic-font-lock-defaults generic-font-lock-expressions))
))
;; Support for [KEYWORD] constructs found in INF, INI and Samba files
determines the number of lines to look at."
(if (not (eq major-mode 'fundamental-mode))
nil
- (if (or (> 1 generic-lines-to-scan)
- (< 50 generic-lines-to-scan))
- (error "Variable `generic-lines-to-scan' should be set to a small"
- " positive number"))
+ (and (or (> 1 generic-lines-to-scan)
+ (< 50 generic-lines-to-scan))
+ (error "Variable `generic-lines-to-scan' should be set to a small"
+ " positive number"))
(let ((comment-regexp "")
(count 0)
)
(setq count (1+ count)))
(save-excursion
(goto-char (point-min))
- (if (looking-at comment-regexp)
- (generic-mode-with-type 'default-generic-mode))))))
+ (and (looking-at comment-regexp)
+ (generic-mode-with-type 'default-generic-mode))))))
(defun generic-mode-ini-file-find-file-hook ()
"Hook to enter default-generic-mode automatically
if the first few lines of a file in fundamental-mode look like an INI file.
This hook is NOT installed by default."
- (if (not (eq major-mode 'fundamental-mode))
- nil
- (save-excursion
- (goto-char (point-min))
- (if (looking-at "^\\s-*\\[.*\\]")
- (generic-mode-with-type 'ini-generic-mode)))))
+ (and (eq major-mode 'fundamental-mode)
+ (save-excursion
+ (goto-char (point-min))
+ (and (looking-at "^\\s-*\\[.*\\]")
+ (generic-mode-with-type 'ini-generic-mode)))))
(and generic-use-find-file-hook
(add-hook 'find-file-hooks 'generic-mode-find-file-hook))
(defun generic-make-keywords-list (keywords-list face &optional prefix suffix)
"Return a regular expression matching the specified keywords.
The regexp is highlighted with FACE."
- ;; Sanity checks
- ;; Don't check here; face may not be defined yet
- ;; (if (not (facep face))
- ;; (error "Face %s is not defined" (princ face)))
- (if (not (listp keywords-list))
- (error "Keywords argument must be a list of strings"))
- (list
- (concat
- (or prefix "")
- "\\(\\<"
- (mapconcat 'identity keywords-list "\\>\\|\\<")
- "\\>\\)"
- (or suffix "")
- ) 1 face))
+ (and (not (listp keywords-list))
+ (error "Keywords argument must be a list of strings"))
+ (list (concat (or prefix "")
+ "\\<\\("
+ ;; Use an optimized regexp.
+ (regexp-opt keywords-list t)
+ "\\)\\>"
+ (or suffix ""))
+ 1
+ face))
(provide 'generic)
-;;; generic.el ends here
+;;; generic.el ends here
\ No newline at end of file