CVS update by youngs xemacs/src ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: youngs
Date: 05/10/10 05:16:30
Modified: xemacs/src ChangeLog unexelf.c
Log:
2005-10-10 Andrey Slusar <anrays(a)gmail.com>
* unexelf.c: define `Elfw(type)' for FreeBSD alpha and all _LP64
archs.
From Dejan Lesjak <dejan.lesjak(a)ijs.si>
Revision Changes Path
1.867 +6 -0 XEmacs/xemacs/src/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v
retrieving revision 1.866
retrieving revision 1.867
diff -u -p -r1.866 -r1.867
--- ChangeLog 2005/10/04 17:51:22 1.866
+++ ChangeLog 2005/10/10 03:16:22 1.867
＠＠ -1,3 +1,9 ＠＠
+2005-10-10 Andrey Slusar <anrays(a)gmail.com>
+
+ * unexelf.c: define `Elfw(type)' for FreeBSD alpha and all _LP64
+ archs.
+ From Dejan Lesjak <dejan.lesjak(a)ijs.si>
+
2005-10-04 Stephen J. Turnbull <stephen(a)xemacs.org>
* Makefile.in.in (mule_canna_objs): Use correct name of .o.
1.19 +1 -1 XEmacs/xemacs/src/unexelf.c
Index: unexelf.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/unexelf.c,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -p -r1.18 -r1.19
--- unexelf.c 2005/07/04 13:11:27 1.18
+++ unexelf.c 2005/10/10 03:16:25 1.19
＠＠ -478,7 +478,7 ＠＠ typedef struct {
# include <sys/exec_elf.h>
#endif
-#if defined(__FreeBSD__) && (defined(__alpha__) || defined(__amd64__))
+#if defined(__FreeBSD__) && (defined(__alpha__) || defined(_LP64))
# ifdef __STDC__
# define ElfW(type) Elf64_##type
# else
- 1 participants
- 0 comments
CVS update by youngs xemacs/lisp ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: youngs
Date: 05/10/10 04:45:34
Modified: xemacs/lisp ChangeLog help.el
Log:
2005-10-10 Steve Youngs <steve(a)sxemacs.org>
* help.el (view-emacs-news): Use `expand-file-name' instead of
`locate-data-file' as the latter will find any "NEWS" files that
might exist in packages _before_ the one in core.
Revision Changes Path
1.681 +6 -0 XEmacs/xemacs/lisp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.680
retrieving revision 1.681
diff -u -p -r1.680 -r1.681
--- ChangeLog 2005/10/09 10:41:37 1.680
+++ ChangeLog 2005/10/10 02:45:31 1.681
＠＠ -1,3 +1,9 ＠＠
+2005-10-10 Steve Youngs <steve(a)sxemacs.org>
+
+ * help.el (view-emacs-news): Use `expand-file-name' instead of
+ `locate-data-file' as the latter will find any "NEWS" files that
+ might exist in packages _before_ the one in core.
+
2005-10-09 Adrian Aichner <adrian(a)xemacs.org>
* finder.el (finder-find-library): Return filename actually
1.45 +1 -1 XEmacs/xemacs/lisp/help.el
Index: help.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/help.el,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -p -r1.44 -r1.45
--- help.el 2005/01/31 20:08:45 1.44
+++ help.el 2005/10/10 02:45:32 1.45
＠＠ -838,7 +838,7 ＠＠ of the key sequence that ran this comman
(defun view-emacs-news ()
"Display info on recent changes to XEmacs."
(interactive)
- (Help-find-file (locate-data-file "NEWS")))
+ (Help-find-file (expand-file-name "NEWS" data-directory)))
(defun xemacs-www-page ()
"Go to the XEmacs World Wide Web page."
- 1 participants
- 0 comments
CVS update by viteno xemacs ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: viteno
Date: 05/10/09 23:51:13
Modified: xemacs version.sh
Log:
Update xemacs_extra_name.
Revision Changes Path
1.1307 +1 -1 XEmacs/xemacs/version.sh
Index: version.sh
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v
retrieving revision 1.1306
retrieving revision 1.1307
diff -u -p -r1.1306 -r1.1307
--- version.sh 2005/10/08 21:51:13 1.1306
+++ version.sh 2005/10/09 21:51:12 1.1307
＠＠ -8,5 +8,5 ＠＠ emacs_kit_version=
infodock_major_version=4
infodock_minor_version=0
infodock_build_version=8
-xemacs_extra_name="(+CVS-20051008)"
+xemacs_extra_name="(+CVS-20051009)"
xemacs_release_date="2005-02-18"
- 1 participants
- 0 comments
CVS update by adrian xemacs/lisp ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: adrian
Date: 05/10/09 16:23:07
Modified: xemacs/lisp finder.el
Log:
Restore unix eol coding.
Revision Changes Path
1.9 +418 -418 XEmacs/xemacs/lisp/finder.el
Index: finder.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/finder.el,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -p -r1.8 -r1.9
--- finder.el 2005/10/09 10:41:38 1.8
+++ finder.el 2005/10/09 14:23:06 1.9
＠＠ -1,418 +1,418 ＠＠
-;;; finder.el --- topic & keyword-based code finder
-
-;; Copyright (C) 1992 Free Software Foundation, Inc.
-
-;; Author: Eric S. Raymond <esr(a)snark.thyrsus.com>
-;; Created: 16 Jun 1992
-;; Version: 1.0
-;; Keywords: help
-;; X-Modified-by: Bob Weiner <weiner(a)mot.com>, 4/18/95, to include Lisp
-;; library directory names in finder-program-info, for fast display of
-;; Lisp libraries and associated commentaries. Added {v}, finder-view,
-;; and {e}, finder-edit commands for displaying libraries.
-;;
-;; Added user variable, 'finder-abbreviate-directory-list', used to
-;; abbreviate directories before they are saved to finder-program-info.
-;; Such relative directories can be portable from one Emacs installation
-;; to another. Default value is based upon the value of Emacs'
-;; data-directory variable.
-
-;; This file is part of XEmacs.
-
-;; XEmacs is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-
-;; XEmacs is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with XEmacs; see the file COPYING. If not, write to the Free
-;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-;; 02111-1307, USA.
-
-;;; Synched up with: FSF 19.34.
-
-;;; Commentary:
-
-;; This mode uses the Keywords library header to provide code-finding
-;; services by keyword.
-;;
-;; Things to do:
-;; 1. Support multiple keywords per search. This could be extremely hairy;
-;; there doesn't seem to be any way to get completing-read to exit on
-;; an EOL with no substring pending, which is what we'd want to end the loop.
-;; 2. Search by string in synopsis line?
-;; 3. Function to check finder-package-info for unknown keywords.
-
-;;; Code:
-
-(require 'lisp-mnt)
-(condition-case nil
- (require 'finder-inf)
- (t nil))
-;; XEmacs addition
-(require 'picture)
-(require 'mode-motion)
-
-(defvar finder-emacs-root-directory
- (file-name-directory (directory-file-name data-directory))
- "Root directory of current emacs tree.")
-
-(defvar finder-abbreviate-directory-list
- (list finder-emacs-root-directory)
- "*List of directory roots to remove from finder-package-info directory entries.
-The first element in the list is used when expanding relative package
-directories to view or extract information from package source code.")
-
-(defvar finder-file-regexp "\\.el$"
- "Regexp which matches file names but not Emacs Lisp finder keywords.")
-
-;; Local variable in finder buffer.
-(defvar finder-headmark)
-
-(defvar finder-known-keywords
- `(
- (abbrev . "abbreviation handling, typing shortcuts, macros")
- (bib . "code related to the `bib' bibliography processor")
- (build . "code used to build XEmacs")
- (c . "C, C++, and Objective-C language support")
- (calendar . "calendar and time management support")
- (comm . "communications, networking, remote access to files")
- (content . "contains content (menu/dialog box descs, text, images, &c)")
- (data . "support for editing files of data")
- (docs . "support for XEmacs documentation")
- (dumped . "files preloaded into XEmacs")
- (emulations . "emulations of other editors")
- (extensions . "Emacs Lisp language extensions")
- (faces . "support for multiple fonts")
- (frames . "support for XEmacs frames and window systems")
- (games . "games, jokes and amusements")
- (gui . "support for menubars, dialog boxes, and other GUI features")
- (hardware . "support for interfacing with exotic hardware")
- (help . "support for on-line help systems")
- (hypermedia . "support for links between text or other media types")
- (i18n . "internationalization and alternate character-set support")
- (internal . "code implementing core functionality in XEmacs")
- (languages . "specialized modes for editing programming languages")
- (lisp . "Lisp support, including Emacs Lisp")
- (local . "code local to your site")
- (mail . "modes for electronic-mail handling")
- (maint . "maintenance aids for the Emacs development group")
- (matching . "various sorts of searching and matching")
- (mouse . "mouse support")
- (mswin . "support for anything running on MS Windows")
- ,(when (featurep 'mule)
- (cons 'mule "multi-language extensions"))
- (news . "support for netnews reading and posting")
- (oop . "support for object-oriented programming")
- (outlines . "support for hierarchical outlining")
- (processes . "process, subshell, compilation, and job control support")
- (services . "provides services for use by other programs (cf `user')")
- (terminals . "support for terminal types")
- (tex . "code related to the TeX formatter")
- (tools . "programming tools")
- (unix . "front-ends/assistants for, or emulators of, UNIX features")
- (user . "program interacts directly with the user (cf `services'")
- (vms . "support code for vms")
- (wp . "word processing")
- (www . "support for the Web (WWW, the World Wide Web)")
- ))
-
-(defvar finder-mode-map nil)
-(or finder-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map " " 'finder-select)
- (define-key map "f" 'finder-select)
- (define-key map "\C-m" 'finder-select)
- ;; XEmacs changes
- (define-key map "e" 'finder-edit)
- (define-key map "v" 'finder-view)
- (define-key map "?" 'finder-summary)
- (define-key map "q" 'finder-exit)
- (define-key map "d" 'finder-list-keywords)
- ;; XEmacs change
- (define-key map [button2] 'finder-mouse-select)
- (setq finder-mode-map map)))
-
-
-;;; Code for regenerating the keyword list.
-
-(defvar finder-package-info nil
- "Assoc list mapping file names to description & keyword lists.")
-
-(defvar finder-compile-keywords-quiet nil
- "If non-nil finder-compile-keywords will not print any messages.")
-
-(defun finder-compile-keywords (&rest dirs)
- "Regenerate the keywords association list into the file `finder-inf.el'.
-Optional arguments are a list of Emacs Lisp directories to compile from; no
-arguments compiles from `load-path'."
- (save-excursion
- ;; XEmacs change
- (find-file (expand-file-name "finder-inf.el" lisp-directory))
- (let ((processed nil)
- (directory-abbrev-alist
- (append
- (mapcar (function (lambda (dir)
- (cons (concat "^" (regexp-quote dir))
- "")))
- finder-abbreviate-directory-list)
- directory-abbrev-alist))
- (using-load-path))
- (or dirs (setq dirs load-path))
- (setq using-load-path (equal dirs load-path))
- (erase-buffer)
- (insert ";;; finder-inf.el --- keyword-to-package mapping\n")
- (insert ";; Keywords: help\n")
- (insert ";;; Commentary:\n")
- (insert ";; Don't edit this file. It's generated by finder.el\n\n")
- (insert ";;; Code:\n")
- (insert "\n(defconst finder-package-info '(\n")
- (mapcar
- (lambda (d)
- (mapcar
- (lambda (f)
- (when (and (not (member f processed)) (file-readable-p f))
- (let (summary keystart keywords)
- (setq processed (cons f processed))
- (if (not finder-compile-keywords-quiet)
- (message "Processing %s ..." f))
- (save-excursion
- (set-buffer (get-buffer-create "*finder-scratch*"))
- (buffer-disable-undo (current-buffer))
- (erase-buffer)
- (insert-file-contents (expand-file-name f d))
- (with-trapping-errors
- :operation (format "processing %s in finder" f)
- :class 'finder
- (setq summary (lm-synopsis)
- keywords (lm-keywords))))
- (when summary
- (insert (format " (\"%s\"\n " f))
- (prin1 summary (current-buffer))
- (insert "\n ")
- (setq keystart (point))
- (insert (if keywords (format "(%s)" keywords) "nil"))
- (subst-char-in-region keystart (point) ?, ? )
- (insert "\n ")
- (prin1 (abbreviate-file-name d) (current-buffer))
- (insert ")\n")))))
- ;;
- ;; Skip null, non-existent or relative pathnames, e.g. "./", if
- ;; using load-path, so that they do not interfere with a scan of
- ;; library directories only.
- (if (and using-load-path
- (not (and d (file-name-absolute-p d) (file-exists-p d))))
- nil
- (setq d (file-name-as-directory (or d ".")))
- (directory-files d nil "^[^=].*\\.el$"))))
- dirs)
- (insert "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n")
- (kill-buffer "*finder-scratch*")
- (unless noninteractive
- (eval-current-buffer)) ; So we get the new keyword list immediately
- (basic-save-buffer))))
-
-(defun finder-compile-keywords-make-dist ()
- "Regenerate `finder-inf.el' for the Emacs distribution."
- (finder-compile-keywords default-directory))
-
-;;; Now the retrieval code
-
-(defun finder-insert-at-column (column &rest strings)
- "Insert list of STRINGS, at column COLUMN."
- (if (>= (current-column) column) (insert "\n"))
- (move-to-column column)
- (let ((col (current-column)))
- (if (< col column)
- (indent-to column)
- (if (and (/= col column)
- (= (preceding-char) ?\t))
- (let (indent-tabs-mode)
- (delete-char -1)
- (indent-to col)
- (move-to-column column)))))
- (apply 'insert strings))
-
-(defun finder-list-keywords ()
- "Display descriptions of the keywords in the Finder buffer."
- (interactive)
- (setq buffer-read-only nil)
- (erase-buffer)
- (mapcar
- (lambda (assoc)
- (let ((keyword (car assoc)))
- (insert (symbol-name keyword))
- (finder-insert-at-column 14 (concat (cdr assoc) "\n"))
- (cons (symbol-name keyword) keyword)))
- finder-known-keywords)
- (goto-char (point-min))
- (setq finder-headmark (point))
- (setq buffer-read-only t)
- (set-buffer-modified-p nil)
- ;; XEmacs change
- (if (not (one-window-p))
- (balance-windows))
- (finder-summary))
-
-(defun finder-list-matches (key)
- (setq buffer-read-only nil)
- (erase-buffer)
- (let ((id (intern key)))
- (insert
- "The following packages match the keyword `" key "':\n\n")
- (setq finder-headmark (point))
- (mapcar
- (lambda (x)
- (if (memq id (car (cdr (cdr x))))
- (progn
- (insert (car x))
- (finder-insert-at-column 16 (concat (car (cdr x)) "\n")))))
- finder-package-info)
- (goto-char (point-min))
- (forward-line)
- (setq buffer-read-only t)
- (set-buffer-modified-p nil)
- (shrink-window-if-larger-than-buffer)
- (finder-summary)))
-
-;; Search for a file named FILE the same way `load' would search.
-(defun finder-find-library (file)
- (if (file-name-absolute-p file)
- file
- (let ((dirs load-path)
- found)
- (while (and dirs (not found))
- (if (file-exists-p (expand-file-name (concat file ".el") (car dirs)))
- (setq found (expand-file-name (concat file ".el") (car dirs)))
- (if (file-exists-p (expand-file-name file (car dirs)))
- (setq found (expand-file-name file (car dirs)))))
- (setq dirs (cdr dirs)))
- found)))
-
-;;;###autoload
-(defun finder-commentary (file)
- "Display FILE's commentary section.
-FILE should be in a form suitable for passing to `locate-library'."
- (interactive "sLibrary name: ")
- (let* ((str (lm-commentary (or (finder-find-library file)
- (finder-find-library (concat file ".el"))
- (error "Can't find library %s" file)))))
- (if (null str)
- (error "Can't find any Commentary section"))
- (pop-to-buffer "*Finder*")
- ;; XEmacs change
- (setq buffer-read-only nil
- mode-motion-hook 'mode-motion-highlight-line)
- (erase-buffer)
- (insert str)
- (goto-char (point-min))
- (delete-blank-lines)
- (goto-char (point-max))
- (delete-blank-lines)
- (goto-char (point-min))
- (while (re-search-forward "^;+ ?" nil t)
- (replace-match "" nil nil))
- (goto-char (point-min))
- (setq buffer-read-only t)
- (set-buffer-modified-p nil)
- (shrink-window-if-larger-than-buffer)
- (finder-summary)))
-
-(defun finder-current-item ()
- (if (and finder-headmark (< (point) finder-headmark))
- (error "No keyword or filename on this line")
- (save-excursion
- (beginning-of-line)
- (current-word))))
-
-;; XEmacs change
-(defun finder-edit ()
- (interactive)
- (let ((entry (finder-current-item)))
- (if (string-match finder-file-regexp entry)
- (let ((path (finder-find-library entry)))
- (if path
- (find-file-other-window path)
- (error "Can't find Emacs Lisp library: '%s'" entry)))
- ;; a finder keyword
- (error "Finder-edit works on Emacs Lisp libraries only"))))
-
-;; XEmacs change
-(defun finder-view ()
- (interactive)
- (let ((entry (finder-current-item)))
- (if (string-match finder-file-regexp entry)
- (let ((path (finder-find-library entry)))
- (if path
- (view-file-other-window path)
- (error "Can't find Emacs Lisp library: '%s'" entry)))
- ;; a finder keyword
- (error "Finder-view works on Emacs Lisp libraries only"))))
-
-(defun finder-select ()
- (interactive)
- (let ((key (finder-current-item)))
- ;; XEmacs change
- (if (string-match finder-file-regexp key)
- (finder-commentary key)
- (finder-list-matches key))))
-
-;; XEmacs change
-(defun finder-mouse-select (ev)
- (interactive "e")
- (goto-char (event-point ev))
- (finder-select))
-
-;; XEmacs change
-;;;###autoload
-(defun finder-by-keyword ()
- "Find packages matching a given keyword."
- (interactive)
- (finder-mode)
- (finder-list-keywords))
-
-(defun finder-mode ()
- "Major mode for browsing package documentation.
-\\<finder-mode-map>
-\\[finder-select] more help for the item on the current line
-\\[finder-edit] edit Lisp library in another window
-\\[finder-view] view Lisp library in another window
-\\[finder-exit] exit Finder mode and kill the Finder buffer.
-"
- (interactive)
- (pop-to-buffer "*Finder*")
- ;; XEmacs change
- (setq buffer-read-only nil
- mode-motion-hook 'mode-motion-highlight-line)
- (erase-buffer)
- (use-local-map finder-mode-map)
- (set-syntax-table emacs-lisp-mode-syntax-table)
- (setq mode-name "Finder")
- (setq major-mode 'finder-mode)
- (make-local-variable 'finder-headmark)
- (setq finder-headmark nil))
-
-(defun finder-summary ()
- "Summarize basic Finder commands."
- (interactive)
- (message "%s"
- (substitute-command-keys
- ;; XEmacs change
- "\\<finder-mode-map>\\[finder-select] = select, \\[finder-list-keywords] = keywords, \\[finder-edit] = edit, \\[finder-view] = view, \\[finder-exit] = quit, \\[finder-summary] = help")))
-
-(defun finder-exit ()
- "Exit Finder mode and kill the buffer."
- (interactive)
- ;; XEmacs change
- (or (one-window-p t 0)
- (delete-window))
- (kill-buffer "*Finder*"))
-
-(provide 'finder)
-
-;;; finder.el ends here
+;;; finder.el --- topic & keyword-based code finder
+
+;; Copyright (C) 1992 Free Software Foundation, Inc.
+
+;; Author: Eric S. Raymond <esr(a)snark.thyrsus.com>
+;; Created: 16 Jun 1992
+;; Version: 1.0
+;; Keywords: help
+;; X-Modified-by: Bob Weiner <weiner(a)mot.com>, 4/18/95, to include Lisp
+;; library directory names in finder-program-info, for fast display of
+;; Lisp libraries and associated commentaries. Added {v}, finder-view,
+;; and {e}, finder-edit commands for displaying libraries.
+;;
+;; Added user variable, 'finder-abbreviate-directory-list', used to
+;; abbreviate directories before they are saved to finder-program-info.
+;; Such relative directories can be portable from one Emacs installation
+;; to another. Default value is based upon the value of Emacs'
+;; data-directory variable.
+
+;; This file is part of XEmacs.
+
+;; XEmacs is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; XEmacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs; see the file COPYING. If not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;; 02111-1307, USA.
+
+;;; Synched up with: FSF 19.34.
+
+;;; Commentary:
+
+;; This mode uses the Keywords library header to provide code-finding
+;; services by keyword.
+;;
+;; Things to do:
+;; 1. Support multiple keywords per search. This could be extremely hairy;
+;; there doesn't seem to be any way to get completing-read to exit on
+;; an EOL with no substring pending, which is what we'd want to end the loop.
+;; 2. Search by string in synopsis line?
+;; 3. Function to check finder-package-info for unknown keywords.
+
+;;; Code:
+
+(require 'lisp-mnt)
+(condition-case nil
+ (require 'finder-inf)
+ (t nil))
+;; XEmacs addition
+(require 'picture)
+(require 'mode-motion)
+
+(defvar finder-emacs-root-directory
+ (file-name-directory (directory-file-name data-directory))
+ "Root directory of current emacs tree.")
+
+(defvar finder-abbreviate-directory-list
+ (list finder-emacs-root-directory)
+ "*List of directory roots to remove from finder-package-info directory entries.
+The first element in the list is used when expanding relative package
+directories to view or extract information from package source code.")
+
+(defvar finder-file-regexp "\\.el$"
+ "Regexp which matches file names but not Emacs Lisp finder keywords.")
+
+;; Local variable in finder buffer.
+(defvar finder-headmark)
+
+(defvar finder-known-keywords
+ `(
+ (abbrev . "abbreviation handling, typing shortcuts, macros")
+ (bib . "code related to the `bib' bibliography processor")
+ (build . "code used to build XEmacs")
+ (c . "C, C++, and Objective-C language support")
+ (calendar . "calendar and time management support")
+ (comm . "communications, networking, remote access to files")
+ (content . "contains content (menu/dialog box descs, text, images, &c)")
+ (data . "support for editing files of data")
+ (docs . "support for XEmacs documentation")
+ (dumped . "files preloaded into XEmacs")
+ (emulations . "emulations of other editors")
+ (extensions . "Emacs Lisp language extensions")
+ (faces . "support for multiple fonts")
+ (frames . "support for XEmacs frames and window systems")
+ (games . "games, jokes and amusements")
+ (gui . "support for menubars, dialog boxes, and other GUI features")
+ (hardware . "support for interfacing with exotic hardware")
+ (help . "support for on-line help systems")
+ (hypermedia . "support for links between text or other media types")
+ (i18n . "internationalization and alternate character-set support")
+ (internal . "code implementing core functionality in XEmacs")
+ (languages . "specialized modes for editing programming languages")
+ (lisp . "Lisp support, including Emacs Lisp")
+ (local . "code local to your site")
+ (mail . "modes for electronic-mail handling")
+ (maint . "maintenance aids for the Emacs development group")
+ (matching . "various sorts of searching and matching")
+ (mouse . "mouse support")
+ (mswin . "support for anything running on MS Windows")
+ ,(when (featurep 'mule)
+ (cons 'mule "multi-language extensions"))
+ (news . "support for netnews reading and posting")
+ (oop . "support for object-oriented programming")
+ (outlines . "support for hierarchical outlining")
+ (processes . "process, subshell, compilation, and job control support")
+ (services . "provides services for use by other programs (cf `user')")
+ (terminals . "support for terminal types")
+ (tex . "code related to the TeX formatter")
+ (tools . "programming tools")
+ (unix . "front-ends/assistants for, or emulators of, UNIX features")
+ (user . "program interacts directly with the user (cf `services'")
+ (vms . "support code for vms")
+ (wp . "word processing")
+ (www . "support for the Web (WWW, the World Wide Web)")
+ ))
+
+(defvar finder-mode-map nil)
+(or finder-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map " " 'finder-select)
+ (define-key map "f" 'finder-select)
+ (define-key map "\C-m" 'finder-select)
+ ;; XEmacs changes
+ (define-key map "e" 'finder-edit)
+ (define-key map "v" 'finder-view)
+ (define-key map "?" 'finder-summary)
+ (define-key map "q" 'finder-exit)
+ (define-key map "d" 'finder-list-keywords)
+ ;; XEmacs change
+ (define-key map [button2] 'finder-mouse-select)
+ (setq finder-mode-map map)))
+
+
+;;; Code for regenerating the keyword list.
+
+(defvar finder-package-info nil
+ "Assoc list mapping file names to description & keyword lists.")
+
+(defvar finder-compile-keywords-quiet nil
+ "If non-nil finder-compile-keywords will not print any messages.")
+
+(defun finder-compile-keywords (&rest dirs)
+ "Regenerate the keywords association list into the file `finder-inf.el'.
+Optional arguments are a list of Emacs Lisp directories to compile from; no
+arguments compiles from `load-path'."
+ (save-excursion
+ ;; XEmacs change
+ (find-file (expand-file-name "finder-inf.el" lisp-directory))
+ (let ((processed nil)
+ (directory-abbrev-alist
+ (append
+ (mapcar (function (lambda (dir)
+ (cons (concat "^" (regexp-quote dir))
+ "")))
+ finder-abbreviate-directory-list)
+ directory-abbrev-alist))
+ (using-load-path))
+ (or dirs (setq dirs load-path))
+ (setq using-load-path (equal dirs load-path))
+ (erase-buffer)
+ (insert ";;; finder-inf.el --- keyword-to-package mapping\n")
+ (insert ";; Keywords: help\n")
+ (insert ";;; Commentary:\n")
+ (insert ";; Don't edit this file. It's generated by finder.el\n\n")
+ (insert ";;; Code:\n")
+ (insert "\n(defconst finder-package-info '(\n")
+ (mapcar
+ (lambda (d)
+ (mapcar
+ (lambda (f)
+ (when (and (not (member f processed)) (file-readable-p f))
+ (let (summary keystart keywords)
+ (setq processed (cons f processed))
+ (if (not finder-compile-keywords-quiet)
+ (message "Processing %s ..." f))
+ (save-excursion
+ (set-buffer (get-buffer-create "*finder-scratch*"))
+ (buffer-disable-undo (current-buffer))
+ (erase-buffer)
+ (insert-file-contents (expand-file-name f d))
+ (with-trapping-errors
+ :operation (format "processing %s in finder" f)
+ :class 'finder
+ (setq summary (lm-synopsis)
+ keywords (lm-keywords))))
+ (when summary
+ (insert (format " (\"%s\"\n " f))
+ (prin1 summary (current-buffer))
+ (insert "\n ")
+ (setq keystart (point))
+ (insert (if keywords (format "(%s)" keywords) "nil"))
+ (subst-char-in-region keystart (point) ?, ? )
+ (insert "\n ")
+ (prin1 (abbreviate-file-name d) (current-buffer))
+ (insert ")\n")))))
+ ;;
+ ;; Skip null, non-existent or relative pathnames, e.g. "./", if
+ ;; using load-path, so that they do not interfere with a scan of
+ ;; library directories only.
+ (if (and using-load-path
+ (not (and d (file-name-absolute-p d) (file-exists-p d))))
+ nil
+ (setq d (file-name-as-directory (or d ".")))
+ (directory-files d nil "^[^=].*\\.el$"))))
+ dirs)
+ (insert "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n")
+ (kill-buffer "*finder-scratch*")
+ (unless noninteractive
+ (eval-current-buffer)) ; So we get the new keyword list immediately
+ (basic-save-buffer))))
+
+(defun finder-compile-keywords-make-dist ()
+ "Regenerate `finder-inf.el' for the Emacs distribution."
+ (finder-compile-keywords default-directory))
+
+;;; Now the retrieval code
+
+(defun finder-insert-at-column (column &rest strings)
+ "Insert list of STRINGS, at column COLUMN."
+ (if (>= (current-column) column) (insert "\n"))
+ (move-to-column column)
+ (let ((col (current-column)))
+ (if (< col column)
+ (indent-to column)
+ (if (and (/= col column)
+ (= (preceding-char) ?\t))
+ (let (indent-tabs-mode)
+ (delete-char -1)
+ (indent-to col)
+ (move-to-column column)))))
+ (apply 'insert strings))
+
+(defun finder-list-keywords ()
+ "Display descriptions of the keywords in the Finder buffer."
+ (interactive)
+ (setq buffer-read-only nil)
+ (erase-buffer)
+ (mapcar
+ (lambda (assoc)
+ (let ((keyword (car assoc)))
+ (insert (symbol-name keyword))
+ (finder-insert-at-column 14 (concat (cdr assoc) "\n"))
+ (cons (symbol-name keyword) keyword)))
+ finder-known-keywords)
+ (goto-char (point-min))
+ (setq finder-headmark (point))
+ (setq buffer-read-only t)
+ (set-buffer-modified-p nil)
+ ;; XEmacs change
+ (if (not (one-window-p))
+ (balance-windows))
+ (finder-summary))
+
+(defun finder-list-matches (key)
+ (setq buffer-read-only nil)
+ (erase-buffer)
+ (let ((id (intern key)))
+ (insert
+ "The following packages match the keyword `" key "':\n\n")
+ (setq finder-headmark (point))
+ (mapcar
+ (lambda (x)
+ (if (memq id (car (cdr (cdr x))))
+ (progn
+ (insert (car x))
+ (finder-insert-at-column 16 (concat (car (cdr x)) "\n")))))
+ finder-package-info)
+ (goto-char (point-min))
+ (forward-line)
+ (setq buffer-read-only t)
+ (set-buffer-modified-p nil)
+ (shrink-window-if-larger-than-buffer)
+ (finder-summary)))
+
+;; Search for a file named FILE the same way `load' would search.
+(defun finder-find-library (file)
+ (if (file-name-absolute-p file)
+ file
+ (let ((dirs load-path)
+ found)
+ (while (and dirs (not found))
+ (if (file-exists-p (expand-file-name (concat file ".el") (car dirs)))
+ (setq found (expand-file-name (concat file ".el") (car dirs)))
+ (if (file-exists-p (expand-file-name file (car dirs)))
+ (setq found (expand-file-name file (car dirs)))))
+ (setq dirs (cdr dirs)))
+ found)))
+
+;;;###autoload
+(defun finder-commentary (file)
+ "Display FILE's commentary section.
+FILE should be in a form suitable for passing to `locate-library'."
+ (interactive "sLibrary name: ")
+ (let* ((str (lm-commentary (or (finder-find-library file)
+ (finder-find-library (concat file ".el"))
+ (error "Can't find library %s" file)))))
+ (if (null str)
+ (error "Can't find any Commentary section"))
+ (pop-to-buffer "*Finder*")
+ ;; XEmacs change
+ (setq buffer-read-only nil
+ mode-motion-hook 'mode-motion-highlight-line)
+ (erase-buffer)
+ (insert str)
+ (goto-char (point-min))
+ (delete-blank-lines)
+ (goto-char (point-max))
+ (delete-blank-lines)
+ (goto-char (point-min))
+ (while (re-search-forward "^;+ ?" nil t)
+ (replace-match "" nil nil))
+ (goto-char (point-min))
+ (setq buffer-read-only t)
+ (set-buffer-modified-p nil)
+ (shrink-window-if-larger-than-buffer)
+ (finder-summary)))
+
+(defun finder-current-item ()
+ (if (and finder-headmark (< (point) finder-headmark))
+ (error "No keyword or filename on this line")
+ (save-excursion
+ (beginning-of-line)
+ (current-word))))
+
+;; XEmacs change
+(defun finder-edit ()
+ (interactive)
+ (let ((entry (finder-current-item)))
+ (if (string-match finder-file-regexp entry)
+ (let ((path (finder-find-library entry)))
+ (if path
+ (find-file-other-window path)
+ (error "Can't find Emacs Lisp library: '%s'" entry)))
+ ;; a finder keyword
+ (error "Finder-edit works on Emacs Lisp libraries only"))))
+
+;; XEmacs change
+(defun finder-view ()
+ (interactive)
+ (let ((entry (finder-current-item)))
+ (if (string-match finder-file-regexp entry)
+ (let ((path (finder-find-library entry)))
+ (if path
+ (view-file-other-window path)
+ (error "Can't find Emacs Lisp library: '%s'" entry)))
+ ;; a finder keyword
+ (error "Finder-view works on Emacs Lisp libraries only"))))
+
+(defun finder-select ()
+ (interactive)
+ (let ((key (finder-current-item)))
+ ;; XEmacs change
+ (if (string-match finder-file-regexp key)
+ (finder-commentary key)
+ (finder-list-matches key))))
+
+;; XEmacs change
+(defun finder-mouse-select (ev)
+ (interactive "e")
+ (goto-char (event-point ev))
+ (finder-select))
+
+;; XEmacs change
+;;;###autoload
+(defun finder-by-keyword ()
+ "Find packages matching a given keyword."
+ (interactive)
+ (finder-mode)
+ (finder-list-keywords))
+
+(defun finder-mode ()
+ "Major mode for browsing package documentation.
+\\<finder-mode-map>
+\\[finder-select] more help for the item on the current line
+\\[finder-edit] edit Lisp library in another window
+\\[finder-view] view Lisp library in another window
+\\[finder-exit] exit Finder mode and kill the Finder buffer.
+"
+ (interactive)
+ (pop-to-buffer "*Finder*")
+ ;; XEmacs change
+ (setq buffer-read-only nil
+ mode-motion-hook 'mode-motion-highlight-line)
+ (erase-buffer)
+ (use-local-map finder-mode-map)
+ (set-syntax-table emacs-lisp-mode-syntax-table)
+ (setq mode-name "Finder")
+ (setq major-mode 'finder-mode)
+ (make-local-variable 'finder-headmark)
+ (setq finder-headmark nil))
+
+(defun finder-summary ()
+ "Summarize basic Finder commands."
+ (interactive)
+ (message "%s"
+ (substitute-command-keys
+ ;; XEmacs change
+ "\\<finder-mode-map>\\[finder-select] = select, \\[finder-list-keywords] = keywords, \\[finder-edit] = edit, \\[finder-view] = view, \\[finder-exit] = quit, \\[finder-summary] = help")))
+
+(defun finder-exit ()
+ "Exit Finder mode and kill the buffer."
+ (interactive)
+ ;; XEmacs change
+ (or (one-window-p t 0)
+ (delete-window))
+ (kill-buffer "*Finder*"))
+
+(provide 'finder)
+
+;;; finder.el ends here
- 1 participants
- 0 comments
CVS update by viteno xemacs-builds/viteno ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: viteno
Date: 05/10/09 14:00:19
Modified: xemacs-builds/viteno package-index setup-packages.ini
Log:
Package database backup:
- tramp-1.27
Revision Changes Path
1.248 +7 -7 XEmacs/xemacs-builds/viteno/package-index
Index: package-index
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/viteno/package-index,v
retrieving revision 1.247
retrieving revision 1.248
diff -u -p -r1.247 -r1.248
--- package-index 2005/10/06 18:06:51 1.247
+++ package-index 2005/10/09 12:00:18 1.248
＠＠ -756,19 +756,19 ＠＠ semantic-sas
(package-get-update-base-entry (quote
(tramp
(standards-version 1.1
- version "1.26"
- author-version "2.0.50"
- date "2005-08-08"
- build-date "2005-08-08"
+ version "1.27"
+ author-version "2.0.51"
+ date "2005-10-09"
+ build-date "2005-10-09"
maintainer "Kai Großjohann <kai.grossjohann(a)gmx.net>"
distribution xemacs
priority low
category "standard"
dump nil
description "Remote shell-based file editing."
- filename "tramp-1.26-pkg.tar.gz"
- md5sum "61d8f760411f41c195023dde5ffd8329"
- size 289342
+ filename "tramp-1.27-pkg.tar.gz"
+ md5sum "494ee44ed5f7d38cfe05c218d5ab9536"
+ size 291354
provides (tramp tramp-efs tramp-ftp tramp-smb tramp-util tramp-uu
tramp-vc trampcache)
requires (tramp xemacs-base vc fsf-compat efs dired mail-lib gnus ediff)
1.236 +2 -2 XEmacs/xemacs-builds/viteno/setup-packages.ini
Index: setup-packages.ini
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/viteno/setup-packages.ini,v
retrieving revision 1.235
retrieving revision 1.236
diff -u -p -r1.235 -r1.236
--- setup-packages.ini 2005/10/06 18:06:51 1.235
+++ setup-packages.ini 2005/10/09 12:00:18 1.236
＠＠ -344,8 +344,8 ＠＠ version: 1.89
install: packages/text-modes-1.89-pkg.tar.gz 440448
＠ tramp
-version: 1.26
-install: packages/tramp-1.26-pkg.tar.gz 289342
+version: 1.27
+install: packages/tramp-1.27-pkg.tar.gz 291354
＠ xemacs-base
version: 1.98
- 1 participants
- 0 comments
CVS update by viteno packages/xemacs-packages/tramp ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: viteno
Date: 05/10/09 13:54:41
Modified: packages/xemacs-packages/tramp ChangeLog Makefile
Log:
Increment VERSION in Makefile
Revision Changes Path
1.53 +4 -0 XEmacs/packages/xemacs-packages/tramp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/tramp/ChangeLog,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -p -r1.52 -r1.53
--- ChangeLog 2005/10/08 15:02:16 1.52
+++ ChangeLog 2005/10/09 11:54:41 1.53
＠＠ -1,3 +1,7 ＠＠
+2005-10-09 Norbert Koch <viteno(a)xemacs.org>
+
+ * Makefile (VERSION): XEmacs package 1.27 released.
+
2005-10-08 Michael Albinus <michael.albinus(a)gmx.de>
* Makefile (AUTHOR_VERSION): Bump to 2.0.51.
1.53 +1 -1 XEmacs/packages/xemacs-packages/tramp/Makefile
Index: Makefile
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/tramp/Makefile,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -p -r1.52 -r1.53
--- Makefile 2005/10/08 15:02:16 1.52
+++ Makefile 2005/10/09 11:54:41 1.53
＠＠ -17,7 +17,7 ＠＠
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
-VERSION = 1.26
+VERSION = 1.27
AUTHOR_VERSION = 2.0.51
MAINTAINER = Kai Großjohann <kai.grossjohann(a)gmx.net>
PACKAGE = tramp
- 1 participants
- 0 comments
CVS update by viteno packages ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: viteno
Date: 05/10/09 13:54:13
Modified: packages ChangeLog
Log:
Package release
Revision Changes Path
1.569 +4 -0 XEmacs/packages/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/ChangeLog,v
retrieving revision 1.568
retrieving revision 1.569
diff -u -p -r1.568 -r1.569
--- ChangeLog 2005/10/06 17:36:44 1.568
+++ ChangeLog 2005/10/09 11:54:12 1.569
＠＠ -1,3 +1,7 ＠＠
+2005-10-09 Norbert Koch <viteno(a)xemacs.org>
+
+ * Packages released: tramp.
+
2005-10-06 Norbert Koch <viteno(a)xemacs.org>
* Packages released: ediff net-utils viper.
- 1 participants
- 0 comments
CVS update by adrian xemacs/lisp ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: adrian
Date: 05/10/09 12:41:40
Modified: xemacs/lisp ChangeLog finder.el
Log:
xemacs-21.5-clean: finder-find-library to return filename actually searched for
-------------------- ChangeLog entries follow: --------------------
lisp/ChangeLog addition:
2005-10-09 Adrian Aichner <adrian(a)xemacs.org>
* finder.el (finder-find-library): Return filename actually
searched for.
Revision Changes Path
1.680 +5 -0 XEmacs/xemacs/lisp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.679
retrieving revision 1.680
diff -u -p -r1.679 -r1.680
--- ChangeLog 2005/10/05 04:32:44 1.679
+++ ChangeLog 2005/10/09 10:41:37 1.680
＠＠ -1,3 +1,8 ＠＠
+2005-10-09 Adrian Aichner <adrian(a)xemacs.org>
+
+ * finder.el (finder-find-library): Return filename actually
+ searched for.
+
2005-10-04 Stephen J. Turnbull <stephen(a)xemacs.org>
* simple.el (xemacs-default-composefunc): Don't warn when batch.
1.8 +418 -418 XEmacs/xemacs/lisp/finder.el
Index: finder.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/finder.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- finder.el 2003/02/20 08:19:29 1.7
+++ finder.el 2005/10/09 10:41:38 1.8
＠＠ -1,418 +1,418 ＠＠
-;;; finder.el --- topic & keyword-based code finder
-
-;; Copyright (C) 1992 Free Software Foundation, Inc.
-
-;; Author: Eric S. Raymond <esr(a)snark.thyrsus.com>
-;; Created: 16 Jun 1992
-;; Version: 1.0
-;; Keywords: help
-;; X-Modified-by: Bob Weiner <weiner(a)mot.com>, 4/18/95, to include Lisp
-;; library directory names in finder-program-info, for fast display of
-;; Lisp libraries and associated commentaries. Added {v}, finder-view,
-;; and {e}, finder-edit commands for displaying libraries.
-;;
-;; Added user variable, 'finder-abbreviate-directory-list', used to
-;; abbreviate directories before they are saved to finder-program-info.
-;; Such relative directories can be portable from one Emacs installation
-;; to another. Default value is based upon the value of Emacs'
-;; data-directory variable.
-
-;; This file is part of XEmacs.
-
-;; XEmacs is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-
-;; XEmacs is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with XEmacs; see the file COPYING. If not, write to the Free
-;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-;; 02111-1307, USA.
-
-;;; Synched up with: FSF 19.34.
-
-;;; Commentary:
-
-;; This mode uses the Keywords library header to provide code-finding
-;; services by keyword.
-;;
-;; Things to do:
-;; 1. Support multiple keywords per search. This could be extremely hairy;
-;; there doesn't seem to be any way to get completing-read to exit on
-;; an EOL with no substring pending, which is what we'd want to end the loop.
-;; 2. Search by string in synopsis line?
-;; 3. Function to check finder-package-info for unknown keywords.
-
-;;; Code:
-
-(require 'lisp-mnt)
-(condition-case nil
- (require 'finder-inf)
- (t nil))
-;; XEmacs addition
-(require 'picture)
-(require 'mode-motion)
-
-(defvar finder-emacs-root-directory
- (file-name-directory (directory-file-name data-directory))
- "Root directory of current emacs tree.")
-
-(defvar finder-abbreviate-directory-list
- (list finder-emacs-root-directory)
- "*List of directory roots to remove from finder-package-info directory entries.
-The first element in the list is used when expanding relative package
-directories to view or extract information from package source code.")
-
-(defvar finder-file-regexp "\\.el$"
- "Regexp which matches file names but not Emacs Lisp finder keywords.")
-
-;; Local variable in finder buffer.
-(defvar finder-headmark)
-
-(defvar finder-known-keywords
- `(
- (abbrev . "abbreviation handling, typing shortcuts, macros")
- (bib . "code related to the `bib' bibliography processor")
- (build . "code used to build XEmacs")
- (c . "C, C++, and Objective-C language support")
- (calendar . "calendar and time management support")
- (comm . "communications, networking, remote access to files")
- (content . "contains content (menu/dialog box descs, text, images, &c)")
- (data . "support for editing files of data")
- (docs . "support for XEmacs documentation")
- (dumped . "files preloaded into XEmacs")
- (emulations . "emulations of other editors")
- (extensions . "Emacs Lisp language extensions")
- (faces . "support for multiple fonts")
- (frames . "support for XEmacs frames and window systems")
- (games . "games, jokes and amusements")
- (gui . "support for menubars, dialog boxes, and other GUI features")
- (hardware . "support for interfacing with exotic hardware")
- (help . "support for on-line help systems")
- (hypermedia . "support for links between text or other media types")
- (i18n . "internationalization and alternate character-set support")
- (internal . "code implementing core functionality in XEmacs")
- (languages . "specialized modes for editing programming languages")
- (lisp . "Lisp support, including Emacs Lisp")
- (local . "code local to your site")
- (mail . "modes for electronic-mail handling")
- (maint . "maintenance aids for the Emacs development group")
- (matching . "various sorts of searching and matching")
- (mouse . "mouse support")
- (mswin . "support for anything running on MS Windows")
- ,(when (featurep 'mule)
- (cons 'mule "multi-language extensions"))
- (news . "support for netnews reading and posting")
- (oop . "support for object-oriented programming")
- (outlines . "support for hierarchical outlining")
- (processes . "process, subshell, compilation, and job control support")
- (services . "provides services for use by other programs (cf `user')")
- (terminals . "support for terminal types")
- (tex . "code related to the TeX formatter")
- (tools . "programming tools")
- (unix . "front-ends/assistants for, or emulators of, UNIX features")
- (user . "program interacts directly with the user (cf `services'")
- (vms . "support code for vms")
- (wp . "word processing")
- (www . "support for the Web (WWW, the World Wide Web)")
- ))
-
-(defvar finder-mode-map nil)
-(or finder-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map " " 'finder-select)
- (define-key map "f" 'finder-select)
- (define-key map "\C-m" 'finder-select)
- ;; XEmacs changes
- (define-key map "e" 'finder-edit)
- (define-key map "v" 'finder-view)
- (define-key map "?" 'finder-summary)
- (define-key map "q" 'finder-exit)
- (define-key map "d" 'finder-list-keywords)
- ;; XEmacs change
- (define-key map [button2] 'finder-mouse-select)
- (setq finder-mode-map map)))
-
-
-;;; Code for regenerating the keyword list.
-
-(defvar finder-package-info nil
- "Assoc list mapping file names to description & keyword lists.")
-
-(defvar finder-compile-keywords-quiet nil
- "If non-nil finder-compile-keywords will not print any messages.")
-
-(defun finder-compile-keywords (&rest dirs)
- "Regenerate the keywords association list into the file `finder-inf.el'.
-Optional arguments are a list of Emacs Lisp directories to compile from; no
-arguments compiles from `load-path'."
- (save-excursion
- ;; XEmacs change
- (find-file (expand-file-name "finder-inf.el" lisp-directory))
- (let ((processed nil)
- (directory-abbrev-alist
- (append
- (mapcar (function (lambda (dir)
- (cons (concat "^" (regexp-quote dir))
- "")))
- finder-abbreviate-directory-list)
- directory-abbrev-alist))
- (using-load-path))
- (or dirs (setq dirs load-path))
- (setq using-load-path (equal dirs load-path))
- (erase-buffer)
- (insert ";;; finder-inf.el --- keyword-to-package mapping\n")
- (insert ";; Keywords: help\n")
- (insert ";;; Commentary:\n")
- (insert ";; Don't edit this file. It's generated by finder.el\n\n")
- (insert ";;; Code:\n")
- (insert "\n(defconst finder-package-info '(\n")
- (mapcar
- (lambda (d)
- (mapcar
- (lambda (f)
- (when (and (not (member f processed)) (file-readable-p f))
- (let (summary keystart keywords)
- (setq processed (cons f processed))
- (if (not finder-compile-keywords-quiet)
- (message "Processing %s ..." f))
- (save-excursion
- (set-buffer (get-buffer-create "*finder-scratch*"))
- (buffer-disable-undo (current-buffer))
- (erase-buffer)
- (insert-file-contents (expand-file-name f d))
- (with-trapping-errors
- :operation (format "processing %s in finder" f)
- :class 'finder
- (setq summary (lm-synopsis)
- keywords (lm-keywords))))
- (when summary
- (insert (format " (\"%s\"\n " f))
- (prin1 summary (current-buffer))
- (insert "\n ")
- (setq keystart (point))
- (insert (if keywords (format "(%s)" keywords) "nil"))
- (subst-char-in-region keystart (point) ?, ? )
- (insert "\n ")
- (prin1 (abbreviate-file-name d) (current-buffer))
- (insert ")\n")))))
- ;;
- ;; Skip null, non-existent or relative pathnames, e.g. "./", if
- ;; using load-path, so that they do not interfere with a scan of
- ;; library directories only.
- (if (and using-load-path
- (not (and d (file-name-absolute-p d) (file-exists-p d))))
- nil
- (setq d (file-name-as-directory (or d ".")))
- (directory-files d nil "^[^=].*\\.el$"))))
- dirs)
- (insert "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n")
- (kill-buffer "*finder-scratch*")
- (unless noninteractive
- (eval-current-buffer)) ; So we get the new keyword list immediately
- (basic-save-buffer))))
-
-(defun finder-compile-keywords-make-dist ()
- "Regenerate `finder-inf.el' for the Emacs distribution."
- (finder-compile-keywords default-directory))
-
-;;; Now the retrieval code
-
-(defun finder-insert-at-column (column &rest strings)
- "Insert list of STRINGS, at column COLUMN."
- (if (>= (current-column) column) (insert "\n"))
- (move-to-column column)
- (let ((col (current-column)))
- (if (< col column)
- (indent-to column)
- (if (and (/= col column)
- (= (preceding-char) ?\t))
- (let (indent-tabs-mode)
- (delete-char -1)
- (indent-to col)
- (move-to-column column)))))
- (apply 'insert strings))
-
-(defun finder-list-keywords ()
- "Display descriptions of the keywords in the Finder buffer."
- (interactive)
- (setq buffer-read-only nil)
- (erase-buffer)
- (mapcar
- (lambda (assoc)
- (let ((keyword (car assoc)))
- (insert (symbol-name keyword))
- (finder-insert-at-column 14 (concat (cdr assoc) "\n"))
- (cons (symbol-name keyword) keyword)))
- finder-known-keywords)
- (goto-char (point-min))
- (setq finder-headmark (point))
- (setq buffer-read-only t)
- (set-buffer-modified-p nil)
- ;; XEmacs change
- (if (not (one-window-p))
- (balance-windows))
- (finder-summary))
-
-(defun finder-list-matches (key)
- (setq buffer-read-only nil)
- (erase-buffer)
- (let ((id (intern key)))
- (insert
- "The following packages match the keyword `" key "':\n\n")
- (setq finder-headmark (point))
- (mapcar
- (lambda (x)
- (if (memq id (car (cdr (cdr x))))
- (progn
- (insert (car x))
- (finder-insert-at-column 16 (concat (car (cdr x)) "\n")))))
- finder-package-info)
- (goto-char (point-min))
- (forward-line)
- (setq buffer-read-only t)
- (set-buffer-modified-p nil)
- (shrink-window-if-larger-than-buffer)
- (finder-summary)))
-
-;; Search for a file named FILE the same way `load' would search.
-(defun finder-find-library (file)
- (if (file-name-absolute-p file)
- file
- (let ((dirs load-path)
- found)
- (while (and dirs (not found))
- (if (file-exists-p (expand-file-name (concat file ".el") (car dirs)))
- (setq found (expand-file-name file (car dirs)))
- (if (file-exists-p (expand-file-name file (car dirs)))
- (setq found (expand-file-name file (car dirs)))))
- (setq dirs (cdr dirs)))
- found)))
-
-;;;###autoload
-(defun finder-commentary (file)
- "Display FILE's commentary section.
-FILE should be in a form suitable for passing to `locate-library'."
- (interactive "sLibrary name: ")
- (let* ((str (lm-commentary (or (finder-find-library file)
- (finder-find-library (concat file ".el"))
- (error "Can't find library %s" file)))))
- (if (null str)
- (error "Can't find any Commentary section"))
- (pop-to-buffer "*Finder*")
- ;; XEmacs change
- (setq buffer-read-only nil
- mode-motion-hook 'mode-motion-highlight-line)
- (erase-buffer)
- (insert str)
- (goto-char (point-min))
- (delete-blank-lines)
- (goto-char (point-max))
- (delete-blank-lines)
- (goto-char (point-min))
- (while (re-search-forward "^;+ ?" nil t)
- (replace-match "" nil nil))
- (goto-char (point-min))
- (setq buffer-read-only t)
- (set-buffer-modified-p nil)
- (shrink-window-if-larger-than-buffer)
- (finder-summary)))
-
-(defun finder-current-item ()
- (if (and finder-headmark (< (point) finder-headmark))
- (error "No keyword or filename on this line")
- (save-excursion
- (beginning-of-line)
- (current-word))))
-
-;; XEmacs change
-(defun finder-edit ()
- (interactive)
- (let ((entry (finder-current-item)))
- (if (string-match finder-file-regexp entry)
- (let ((path (finder-find-library entry)))
- (if path
- (find-file-other-window path)
- (error "Can't find Emacs Lisp library: '%s'" entry)))
- ;; a finder keyword
- (error "Finder-edit works on Emacs Lisp libraries only"))))
-
-;; XEmacs change
-(defun finder-view ()
- (interactive)
- (let ((entry (finder-current-item)))
- (if (string-match finder-file-regexp entry)
- (let ((path (finder-find-library entry)))
- (if path
- (view-file-other-window path)
- (error "Can't find Emacs Lisp library: '%s'" entry)))
- ;; a finder keyword
- (error "Finder-view works on Emacs Lisp libraries only"))))
-
-(defun finder-select ()
- (interactive)
- (let ((key (finder-current-item)))
- ;; XEmacs change
- (if (string-match finder-file-regexp key)
- (finder-commentary key)
- (finder-list-matches key))))
-
-;; XEmacs change
-(defun finder-mouse-select (ev)
- (interactive "e")
- (goto-char (event-point ev))
- (finder-select))
-
-;; XEmacs change
-;;;###autoload
-(defun finder-by-keyword ()
- "Find packages matching a given keyword."
- (interactive)
- (finder-mode)
- (finder-list-keywords))
-
-(defun finder-mode ()
- "Major mode for browsing package documentation.
-\\<finder-mode-map>
-\\[finder-select] more help for the item on the current line
-\\[finder-edit] edit Lisp library in another window
-\\[finder-view] view Lisp library in another window
-\\[finder-exit] exit Finder mode and kill the Finder buffer.
-"
- (interactive)
- (pop-to-buffer "*Finder*")
- ;; XEmacs change
- (setq buffer-read-only nil
- mode-motion-hook 'mode-motion-highlight-line)
- (erase-buffer)
- (use-local-map finder-mode-map)
- (set-syntax-table emacs-lisp-mode-syntax-table)
- (setq mode-name "Finder")
- (setq major-mode 'finder-mode)
- (make-local-variable 'finder-headmark)
- (setq finder-headmark nil))
-
-(defun finder-summary ()
- "Summarize basic Finder commands."
- (interactive)
- (message "%s"
- (substitute-command-keys
- ;; XEmacs change
- "\\<finder-mode-map>\\[finder-select] = select, \\[finder-list-keywords] = keywords, \\[finder-edit] = edit, \\[finder-view] = view, \\[finder-exit] = quit, \\[finder-summary] = help")))
-
-(defun finder-exit ()
- "Exit Finder mode and kill the buffer."
- (interactive)
- ;; XEmacs change
- (or (one-window-p t 0)
- (delete-window))
- (kill-buffer "*Finder*"))
-
-(provide 'finder)
-
-;;; finder.el ends here
+;;; finder.el --- topic & keyword-based code finder
+
+;; Copyright (C) 1992 Free Software Foundation, Inc.
+
+;; Author: Eric S. Raymond <esr(a)snark.thyrsus.com>
+;; Created: 16 Jun 1992
+;; Version: 1.0
+;; Keywords: help
+;; X-Modified-by: Bob Weiner <weiner(a)mot.com>, 4/18/95, to include Lisp
+;; library directory names in finder-program-info, for fast display of
+;; Lisp libraries and associated commentaries. Added {v}, finder-view,
+;; and {e}, finder-edit commands for displaying libraries.
+;;
+;; Added user variable, 'finder-abbreviate-directory-list', used to
+;; abbreviate directories before they are saved to finder-program-info.
+;; Such relative directories can be portable from one Emacs installation
+;; to another. Default value is based upon the value of Emacs'
+;; data-directory variable.
+
+;; This file is part of XEmacs.
+
+;; XEmacs is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; XEmacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs; see the file COPYING. If not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;; 02111-1307, USA.
+
+;;; Synched up with: FSF 19.34.
+
+;;; Commentary:
+
+;; This mode uses the Keywords library header to provide code-finding
+;; services by keyword.
+;;
+;; Things to do:
+;; 1. Support multiple keywords per search. This could be extremely hairy;
+;; there doesn't seem to be any way to get completing-read to exit on
+;; an EOL with no substring pending, which is what we'd want to end the loop.
+;; 2. Search by string in synopsis line?
+;; 3. Function to check finder-package-info for unknown keywords.
+
+;;; Code:
+
+(require 'lisp-mnt)
+(condition-case nil
+ (require 'finder-inf)
+ (t nil))
+;; XEmacs addition
+(require 'picture)
+(require 'mode-motion)
+
+(defvar finder-emacs-root-directory
+ (file-name-directory (directory-file-name data-directory))
+ "Root directory of current emacs tree.")
+
+(defvar finder-abbreviate-directory-list
+ (list finder-emacs-root-directory)
+ "*List of directory roots to remove from finder-package-info directory entries.
+The first element in the list is used when expanding relative package
+directories to view or extract information from package source code.")
+
+(defvar finder-file-regexp "\\.el$"
+ "Regexp which matches file names but not Emacs Lisp finder keywords.")
+
+;; Local variable in finder buffer.
+(defvar finder-headmark)
+
+(defvar finder-known-keywords
+ `(
+ (abbrev . "abbreviation handling, typing shortcuts, macros")
+ (bib . "code related to the `bib' bibliography processor")
+ (build . "code used to build XEmacs")
+ (c . "C, C++, and Objective-C language support")
+ (calendar . "calendar and time management support")
+ (comm . "communications, networking, remote access to files")
+ (content . "contains content (menu/dialog box descs, text, images, &c)")
+ (data . "support for editing files of data")
+ (docs . "support for XEmacs documentation")
+ (dumped . "files preloaded into XEmacs")
+ (emulations . "emulations of other editors")
+ (extensions . "Emacs Lisp language extensions")
+ (faces . "support for multiple fonts")
+ (frames . "support for XEmacs frames and window systems")
+ (games . "games, jokes and amusements")
+ (gui . "support for menubars, dialog boxes, and other GUI features")
+ (hardware . "support for interfacing with exotic hardware")
+ (help . "support for on-line help systems")
+ (hypermedia . "support for links between text or other media types")
+ (i18n . "internationalization and alternate character-set support")
+ (internal . "code implementing core functionality in XEmacs")
+ (languages . "specialized modes for editing programming languages")
+ (lisp . "Lisp support, including Emacs Lisp")
+ (local . "code local to your site")
+ (mail . "modes for electronic-mail handling")
+ (maint . "maintenance aids for the Emacs development group")
+ (matching . "various sorts of searching and matching")
+ (mouse . "mouse support")
+ (mswin . "support for anything running on MS Windows")
+ ,(when (featurep 'mule)
+ (cons 'mule "multi-language extensions"))
+ (news . "support for netnews reading and posting")
+ (oop . "support for object-oriented programming")
+ (outlines . "support for hierarchical outlining")
+ (processes . "process, subshell, compilation, and job control support")
+ (services . "provides services for use by other programs (cf `user')")
+ (terminals . "support for terminal types")
+ (tex . "code related to the TeX formatter")
+ (tools . "programming tools")
+ (unix . "front-ends/assistants for, or emulators of, UNIX features")
+ (user . "program interacts directly with the user (cf `services'")
+ (vms . "support code for vms")
+ (wp . "word processing")
+ (www . "support for the Web (WWW, the World Wide Web)")
+ ))
+
+(defvar finder-mode-map nil)
+(or finder-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map " " 'finder-select)
+ (define-key map "f" 'finder-select)
+ (define-key map "\C-m" 'finder-select)
+ ;; XEmacs changes
+ (define-key map "e" 'finder-edit)
+ (define-key map "v" 'finder-view)
+ (define-key map "?" 'finder-summary)
+ (define-key map "q" 'finder-exit)
+ (define-key map "d" 'finder-list-keywords)
+ ;; XEmacs change
+ (define-key map [button2] 'finder-mouse-select)
+ (setq finder-mode-map map)))
+
+
+;;; Code for regenerating the keyword list.
+
+(defvar finder-package-info nil
+ "Assoc list mapping file names to description & keyword lists.")
+
+(defvar finder-compile-keywords-quiet nil
+ "If non-nil finder-compile-keywords will not print any messages.")
+
+(defun finder-compile-keywords (&rest dirs)
+ "Regenerate the keywords association list into the file `finder-inf.el'.
+Optional arguments are a list of Emacs Lisp directories to compile from; no
+arguments compiles from `load-path'."
+ (save-excursion
+ ;; XEmacs change
+ (find-file (expand-file-name "finder-inf.el" lisp-directory))
+ (let ((processed nil)
+ (directory-abbrev-alist
+ (append
+ (mapcar (function (lambda (dir)
+ (cons (concat "^" (regexp-quote dir))
+ "")))
+ finder-abbreviate-directory-list)
+ directory-abbrev-alist))
+ (using-load-path))
+ (or dirs (setq dirs load-path))
+ (setq using-load-path (equal dirs load-path))
+ (erase-buffer)
+ (insert ";;; finder-inf.el --- keyword-to-package mapping\n")
+ (insert ";; Keywords: help\n")
+ (insert ";;; Commentary:\n")
+ (insert ";; Don't edit this file. It's generated by finder.el\n\n")
+ (insert ";;; Code:\n")
+ (insert "\n(defconst finder-package-info '(\n")
+ (mapcar
+ (lambda (d)
+ (mapcar
+ (lambda (f)
+ (when (and (not (member f processed)) (file-readable-p f))
+ (let (summary keystart keywords)
+ (setq processed (cons f processed))
+ (if (not finder-compile-keywords-quiet)
+ (message "Processing %s ..." f))
+ (save-excursion
+ (set-buffer (get-buffer-create "*finder-scratch*"))
+ (buffer-disable-undo (current-buffer))
+ (erase-buffer)
+ (insert-file-contents (expand-file-name f d))
+ (with-trapping-errors
+ :operation (format "processing %s in finder" f)
+ :class 'finder
+ (setq summary (lm-synopsis)
+ keywords (lm-keywords))))
+ (when summary
+ (insert (format " (\"%s\"\n " f))
+ (prin1 summary (current-buffer))
+ (insert "\n ")
+ (setq keystart (point))
+ (insert (if keywords (format "(%s)" keywords) "nil"))
+ (subst-char-in-region keystart (point) ?, ? )
+ (insert "\n ")
+ (prin1 (abbreviate-file-name d) (current-buffer))
+ (insert ")\n")))))
+ ;;
+ ;; Skip null, non-existent or relative pathnames, e.g. "./", if
+ ;; using load-path, so that they do not interfere with a scan of
+ ;; library directories only.
+ (if (and using-load-path
+ (not (and d (file-name-absolute-p d) (file-exists-p d))))
+ nil
+ (setq d (file-name-as-directory (or d ".")))
+ (directory-files d nil "^[^=].*\\.el$"))))
+ dirs)
+ (insert "))\n\n(provide 'finder-inf)\n\n;;; finder-inf.el ends here\n")
+ (kill-buffer "*finder-scratch*")
+ (unless noninteractive
+ (eval-current-buffer)) ; So we get the new keyword list immediately
+ (basic-save-buffer))))
+
+(defun finder-compile-keywords-make-dist ()
+ "Regenerate `finder-inf.el' for the Emacs distribution."
+ (finder-compile-keywords default-directory))
+
+;;; Now the retrieval code
+
+(defun finder-insert-at-column (column &rest strings)
+ "Insert list of STRINGS, at column COLUMN."
+ (if (>= (current-column) column) (insert "\n"))
+ (move-to-column column)
+ (let ((col (current-column)))
+ (if (< col column)
+ (indent-to column)
+ (if (and (/= col column)
+ (= (preceding-char) ?\t))
+ (let (indent-tabs-mode)
+ (delete-char -1)
+ (indent-to col)
+ (move-to-column column)))))
+ (apply 'insert strings))
+
+(defun finder-list-keywords ()
+ "Display descriptions of the keywords in the Finder buffer."
+ (interactive)
+ (setq buffer-read-only nil)
+ (erase-buffer)
+ (mapcar
+ (lambda (assoc)
+ (let ((keyword (car assoc)))
+ (insert (symbol-name keyword))
+ (finder-insert-at-column 14 (concat (cdr assoc) "\n"))
+ (cons (symbol-name keyword) keyword)))
+ finder-known-keywords)
+ (goto-char (point-min))
+ (setq finder-headmark (point))
+ (setq buffer-read-only t)
+ (set-buffer-modified-p nil)
+ ;; XEmacs change
+ (if (not (one-window-p))
+ (balance-windows))
+ (finder-summary))
+
+(defun finder-list-matches (key)
+ (setq buffer-read-only nil)
+ (erase-buffer)
+ (let ((id (intern key)))
+ (insert
+ "The following packages match the keyword `" key "':\n\n")
+ (setq finder-headmark (point))
+ (mapcar
+ (lambda (x)
+ (if (memq id (car (cdr (cdr x))))
+ (progn
+ (insert (car x))
+ (finder-insert-at-column 16 (concat (car (cdr x)) "\n")))))
+ finder-package-info)
+ (goto-char (point-min))
+ (forward-line)
+ (setq buffer-read-only t)
+ (set-buffer-modified-p nil)
+ (shrink-window-if-larger-than-buffer)
+ (finder-summary)))
+
+;; Search for a file named FILE the same way `load' would search.
+(defun finder-find-library (file)
+ (if (file-name-absolute-p file)
+ file
+ (let ((dirs load-path)
+ found)
+ (while (and dirs (not found))
+ (if (file-exists-p (expand-file-name (concat file ".el") (car dirs)))
+ (setq found (expand-file-name (concat file ".el") (car dirs)))
+ (if (file-exists-p (expand-file-name file (car dirs)))
+ (setq found (expand-file-name file (car dirs)))))
+ (setq dirs (cdr dirs)))
+ found)))
+
+;;;###autoload
+(defun finder-commentary (file)
+ "Display FILE's commentary section.
+FILE should be in a form suitable for passing to `locate-library'."
+ (interactive "sLibrary name: ")
+ (let* ((str (lm-commentary (or (finder-find-library file)
+ (finder-find-library (concat file ".el"))
+ (error "Can't find library %s" file)))))
+ (if (null str)
+ (error "Can't find any Commentary section"))
+ (pop-to-buffer "*Finder*")
+ ;; XEmacs change
+ (setq buffer-read-only nil
+ mode-motion-hook 'mode-motion-highlight-line)
+ (erase-buffer)
+ (insert str)
+ (goto-char (point-min))
+ (delete-blank-lines)
+ (goto-char (point-max))
+ (delete-blank-lines)
+ (goto-char (point-min))
+ (while (re-search-forward "^;+ ?" nil t)
+ (replace-match "" nil nil))
+ (goto-char (point-min))
+ (setq buffer-read-only t)
+ (set-buffer-modified-p nil)
+ (shrink-window-if-larger-than-buffer)
+ (finder-summary)))
+
+(defun finder-current-item ()
+ (if (and finder-headmark (< (point) finder-headmark))
+ (error "No keyword or filename on this line")
+ (save-excursion
+ (beginning-of-line)
+ (current-word))))
+
+;; XEmacs change
+(defun finder-edit ()
+ (interactive)
+ (let ((entry (finder-current-item)))
+ (if (string-match finder-file-regexp entry)
+ (let ((path (finder-find-library entry)))
+ (if path
+ (find-file-other-window path)
+ (error "Can't find Emacs Lisp library: '%s'" entry)))
+ ;; a finder keyword
+ (error "Finder-edit works on Emacs Lisp libraries only"))))
+
+;; XEmacs change
+(defun finder-view ()
+ (interactive)
+ (let ((entry (finder-current-item)))
+ (if (string-match finder-file-regexp entry)
+ (let ((path (finder-find-library entry)))
+ (if path
+ (view-file-other-window path)
+ (error "Can't find Emacs Lisp library: '%s'" entry)))
+ ;; a finder keyword
+ (error "Finder-view works on Emacs Lisp libraries only"))))
+
+(defun finder-select ()
+ (interactive)
+ (let ((key (finder-current-item)))
+ ;; XEmacs change
+ (if (string-match finder-file-regexp key)
+ (finder-commentary key)
+ (finder-list-matches key))))
+
+;; XEmacs change
+(defun finder-mouse-select (ev)
+ (interactive "e")
+ (goto-char (event-point ev))
+ (finder-select))
+
+;; XEmacs change
+;;;###autoload
+(defun finder-by-keyword ()
+ "Find packages matching a given keyword."
+ (interactive)
+ (finder-mode)
+ (finder-list-keywords))
+
+(defun finder-mode ()
+ "Major mode for browsing package documentation.
+\\<finder-mode-map>
+\\[finder-select] more help for the item on the current line
+\\[finder-edit] edit Lisp library in another window
+\\[finder-view] view Lisp library in another window
+\\[finder-exit] exit Finder mode and kill the Finder buffer.
+"
+ (interactive)
+ (pop-to-buffer "*Finder*")
+ ;; XEmacs change
+ (setq buffer-read-only nil
+ mode-motion-hook 'mode-motion-highlight-line)
+ (erase-buffer)
+ (use-local-map finder-mode-map)
+ (set-syntax-table emacs-lisp-mode-syntax-table)
+ (setq mode-name "Finder")
+ (setq major-mode 'finder-mode)
+ (make-local-variable 'finder-headmark)
+ (setq finder-headmark nil))
+
+(defun finder-summary ()
+ "Summarize basic Finder commands."
+ (interactive)
+ (message "%s"
+ (substitute-command-keys
+ ;; XEmacs change
+ "\\<finder-mode-map>\\[finder-select] = select, \\[finder-list-keywords] = keywords, \\[finder-edit] = edit, \\[finder-view] = view, \\[finder-exit] = quit, \\[finder-summary] = help")))
+
+(defun finder-exit ()
+ "Exit Finder mode and kill the buffer."
+ (interactive)
+ ;; XEmacs change
+ (or (one-window-p t 0)
+ (delete-window))
+ (kill-buffer "*Finder*"))
+
+(provide 'finder)
+
+;;; finder.el ends here
- 1 participants
- 0 comments
CVS update by viteno xemacs ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: viteno
Date: 05/10/08 23:51:13
Modified: xemacs version.sh
Log:
Update xemacs_extra_name.
Revision Changes Path
1.1306 +1 -1 XEmacs/xemacs/version.sh
Index: version.sh
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v
retrieving revision 1.1305
retrieving revision 1.1306
diff -u -p -r1.1305 -r1.1306
--- version.sh 2005/10/07 21:51:11 1.1305
+++ version.sh 2005/10/08 21:51:13 1.1306
＠＠ -8,5 +8,5 ＠＠ emacs_kit_version=
infodock_major_version=4
infodock_minor_version=0
infodock_build_version=8
-xemacs_extra_name="(+CVS-20051007)"
+xemacs_extra_name="(+CVS-20051008)"
xemacs_release_date="2005-02-18"
- 1 participants
- 0 comments
CVS update by scop packages/unsupported/scop/generic-modes, generic-x.el ...
18 years, 7 months
CVS Monitor
CVS Monitor
User: scop
Date: 05/10/08 17:07:43
Modified: packages/unsupported/scop/generic-modes ChangeLog
generic-x.el generic.el
Log:
Sync generic-modes with upstream.
Revision Changes Path
1.47 +2 -2 XEmacs/packages/unsupported/scop/STATUS
Index: STATUS
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/STATUS,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -p -r1.46 -r1.47
--- STATUS 2005/10/08 13:34:57 1.46
+++ STATUS 2005/10/08 15:07:39 1.47
＠＠ -13,8 +13,8 ＠＠ ede: Emacs Development Environment, <htt
- Compiles, I have no idea whether it works or not.
generic-modes: generic.el and generic-x.el from GNU Emacs
-- Up to date with GNU Emacs CVS HEAD as of 2005-03-16.
-- Compiles, seems to work, auto-mode-alist and autoloads need spanking.
+- Up to date with GNU Emacs CVS HEAD as of 2005-10-08.
+- Compiles, seems to work, auto-mode-alist and autoloads may need spanking.
vc: vc*.el and a few other related files from GNU Emacs
- Up to date with GNU Emacs CVS HEAD as of 2005-10-08.
1.8 +4 -0 XEmacs/packages/unsupported/scop/generic-modes/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/generic-modes/ChangeLog,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- ChangeLog 2005/03/16 09:16:27 1.7
+++ ChangeLog 2005/10/08 15:07:42 1.8
＠＠ -1,3 +1,7 ＠＠
+2005-10-08 Ville Skyttä <scop(a)xemacs.org>
+
+ * generic.el, generic-x.el: Sync with upstream.
+
2005-03-16 Ville Skyttä <scop(a)xemacs.org>
* generic.el: Sync with upstream.
1.6 +1674 -1621XEmacs/packages/unsupported/scop/generic-modes/generic-x.el
Index: generic-x.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/generic-modes/generic-x.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -p -r1.5 -r1.6
--- generic-x.el 2004/05/24 18:18:09 1.5
+++ generic-x.el 2005/10/08 15:07:42 1.6
＠＠ -1,6 +1,7 ＠＠
-;;; generic-x.el --- Extra Modes for generic-mode
+;;; generic-x.el --- A collection of generic modes
-;; Copyright (C) 1997, 1998, 2003 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 1998, 2002, 2003, 2004,
+;; 2005 Free Software Foundation, Inc.
;; Author: Peter Breton <pbreton(a)cs.umb.edu>
;; Created: Tue Oct 08 1996
＠＠ -19,15 +20,13 ＠＠
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with XEmacs; see the file COPYING. If not, write to the Free
-;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-;; 02111-1307, USA.
+;; along with XEmacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
-;;; Synched up with: GNU Emacs CVS HEAD as of 2004-05-24.
-
;;; Commentary:
;;
-;; This file contains some pre-defined generic-modes.
+;; This file contains a collection generic modes.
;;
;; INSTALLATION:
;;
＠＠ -36,17 +35,33 ＠＠
;; (require 'generic-x)
;;
;; You can decide which modes to load by setting the variable
-;; `generic-extras-enable-list'. Some platform-specific modes are
-;; affected by the variables `generic-define-mswindows-modes' and
-;; `generic-define-unix-modes' (which see).
+;; `generic-extras-enable-list'. Its default value is platform-
+;; specific. The recommended way to set this variable is through
+;; customize:
+;;
+;; M-x customize-option RET generic-extras-enable-list RET
+;;
+;; This lets you select generic modes from the list of available
+;; modes. If you manually set `generic-extras-enable-list' in your
+;; .emacs, do it BEFORE loading generic-x with (require 'generic-x).
+;;
+;; You can also send in new modes; if the file types are reasonably
+;; common, we would like to install them.
+;;
+;; DEFAULT GENERIC MODE:
;;
-;; You can also send in new modes; if the file types a reasonably common,
-;; we would like to install them.
+;; This file 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-x. See the variables
+;; `generic-lines-to-scan' and `generic-find-file-regexp' for
+;; customization options.
;;
;; PROBLEMS WHEN USED WITH FOLDING MODE:
;;
;; [The following relates to the obsolete selective-display technique.
-;; Folding mode should use invisible text properties instead. -- Dave
+;; Folding mode should use invisible text properties instead. -- Dave
;; Love]
;;
;; From Anders Lindgren <andersl(a)csd.uu.se>
＠＠ -61,18 +76,18 ＠＠
;; > - various msgs including "Fontifying region...(error Stack
;; > overflow in regexp matcher)" appear
;;
-;; I have just tracked down the cause of the problem. The regexp:s in
-;; `generic-x.el' does not take into account the way that folding
-;; hides sections of the buffer. The technique is known as
+;; I have just tracked down the cause of the problem. The regexp's in
+;; `generic-x.el' do not take into account the way that folding hides
+;; sections of the buffer. The technique is known as
;; `selective-display' and has been available for a very long time (I
-;; started using it back in the good old' Emacs 18 days). Basically, a
+;; started using it back in the good old Emacs 18 days). Basically, a
;; section is hidden by creating one very long line were the newline
;; character (C-j) is replaced by a linefeed (C-m) character.
;;
;; Many other hiding packages, besides folding, use the same technique,
;; the problem should occur when using them as well.
;;
-;; The erroneous lines in `generic-extras' look like the following (this
+;; The erroneous lines in `generic-x.el' look like the following (this
;; example is from the `ini' section):
;;
;; '(("^\\(\\[.*\\]\\)" 1 'font-lock-constant-face)
＠＠ -84,143 +99,250 ＠＠
;; [foo]
;; bar = xxx
;;
-;; However, since the `.' regexp symbol match the linefeed character the
-;; entire folded section is searched, resulting in a regexp stack
+;; However, since the `.' regexp symbol matches the linefeed character
+;; the entire folded section is searched, resulting in a regexp stack
;; overflow.
;;
-;; Solution suggestion 2: Instead of using ".", use the sequence
-;; "[^\n\r]". This will make the rules behave just as before, but they
-;; will work together with selective-display.
+;; Solution suggestion: Instead of using ".", use the sequence
+;; "[^\n\r]". This will make the rules behave just as before, but
+;; they will work together with selective-display.
;;; Code:
+(eval-when-compile (require 'font-lock))
+;; XEmacs addition
(require 'generic)
-(require 'font-lock)
(defgroup generic-x nil
- "Extra modes for `generic-mode'."
+ "A collection of generic modes."
:prefix "generic-"
- :group 'generic
+ :group 'data
:version "20.3")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Default-Generic mode
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(defcustom generic-extras-enable-list nil
- "*List of generic modes to enable by default.
-Each entry in the list should be a symbol.
-The variables `generic-define-mswindows-modes' and `generic-define-unix-modes'
-also affect which generic modes are defined.
-Please note that if you set this variable after generic-x is loaded,
-you must reload generic-x to enable the specified modes."
+(defcustom generic-use-find-file-hook t
+ "*If non-nil, add a hook to enter `default-generic-mode' automatically.
+This is done if the first few lines of a file in fundamental mode
+start with a hash comment character."
:group 'generic-x
- :type '(repeat sexp)
- )
+ :type 'boolean)
-(defcustom generic-define-mswindows-modes
- (memq system-type (list 'windows-nt 'ms-dos))
- "*If non-nil, some MS-Windows specific generic modes will be defined."
+(defcustom generic-lines-to-scan 3
+ "*Number of lines that `generic-mode-find-file-hook' looks at.
+Relevant when deciding whether to enter Default-Generic mode automatically.
+This variable should be set to a small positive number."
:group 'generic-x
- :type 'boolean
- )
+ :type 'integer)
-(defcustom generic-define-unix-modes
- (not (memq system-type (list 'windows-nt 'ms-dos)))
- "*If non-nil, some Unix specific generic modes will be defined."
+(defcustom generic-find-file-regexp "^#"
+ "*Regular expression used by `generic-mode-find-file-hook'.
+Files in fundamental mode whose first few lines contain a match
+for this regexp, should be put into Default-Generic mode instead.
+The number of lines tested for the matches is specified by the
+value of the variable `generic-lines-to-scan', which see."
:group 'generic-x
- :type 'boolean
- )
+ :type 'regexp)
+
+(defcustom generic-ignore-files-regexp "[Tt][Aa][Gg][Ss]\\'"
+ "*Regular expression used by `generic-mode-find-file-hook'.
+Files whose names match this regular expression should not be put
+into Default-Generic mode, even if they have lines which match
+the regexp in `generic-find-file-regexp'. If the value is nil,
+`generic-mode-find-file-hook' does not check the file names."
+ :group 'generic-x
+ :type '(choice (const :tag "Don't check file names" nil) regexp))
+
+;; This generic mode is always defined
+(define-generic-mode default-generic-mode (list ?#) nil nil nil nil)
-(and generic-define-mswindows-modes
- (setq generic-extras-enable-list
- (append (list 'bat-generic-mode 'ini-generic-mode
- 'inf-generic-mode 'rc-generic-mode
- 'reg-generic-mode 'rul-generic-mode
- 'hosts-generic-mode
- 'apache-conf-generic-mode
- 'apache-log-generic-mode
- )
- generic-extras-enable-list)))
-
-(and generic-define-unix-modes
- (setq generic-extras-enable-list
- (append (list 'apache-conf-generic-mode
- 'apache-log-generic-mode
- 'samba-generic-mode
- 'hosts-generic-mode 'fvwm-generic-mode
- 'x-resource-generic-mode
- 'alias-generic-mode
- 'inetd-conf-generic-mode
- 'etc-services-generic-mode
- 'etc-passwd-generic-mode
- 'etc-fstab-generic-mode
- )
- generic-extras-enable-list)))
+;; A more general solution would allow us to enter generic-mode for
+;; *any* comment character, but would require us to synthesize a new
+;; generic-mode on the fly. I think this gives us most of what we
+;; want.
+(defun generic-mode-find-file-hook ()
+ "Hook function to enter Default-Generic mode automatically.
+
+Done if the first few lines of a file in Fundamental mode start
+with a match for the regexp in `generic-find-file-regexp', unless
+the file's name matches the regexp which is the value of the
+variable `generic-ignore-files-regexp'.
+
+This hook will be installed if the variable
+`generic-use-find-file-hook' is non-nil. The variable
+`generic-lines-to-scan' determines the number of lines to look at."
+ (when (and (eq major-mode 'fundamental-mode)
+ (or (null generic-ignore-files-regexp)
+ (not (string-match
+ generic-ignore-files-regexp
+ (file-name-sans-versions buffer-file-name)))))
+ (save-excursion
+ (goto-char (point-min))
+ (when (re-search-forward generic-find-file-regexp
+ (save-excursion
+ (forward-line generic-lines-to-scan)
+ (point)) t)
+ (goto-char (point-min))
+ (default-generic-mode)))))
+(and generic-use-find-file-hook
+ (add-hook 'find-file-hook 'generic-mode-find-file-hook))
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Generic-modes
+;; Other Generic modes
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; If you add a generic mode to this file, put it in one of these four
+;; lists as well.
+
+(defconst generic-default-modes
+ '(;apache-conf-generic-mode ;; XEmacs: use apache-mode
+ apache-log-generic-mode
+ hosts-generic-mode
+ java-manifest-generic-mode
+ java-properties-generic-mode
+ ;javascript-generic-mode ;; XEmacs: use javascript-mode
+ show-tabs-generic-mode
+ );vrml-generic-mode) ;; XEmacs: use vrml-mode
+ "List of generic modes that are defined by default.")
+
+(defconst generic-mswindows-modes
+ '(bat-generic-mode
+ inf-generic-mode
+ ini-generic-mode
+ rc-generic-mode
+ reg-generic-mode
+ rul-generic-mode)
+ "List of generic modes that are defined by default on MS-Windows.")
+
+(defconst generic-unix-modes
+ '(alias-generic-mode
+ etc-fstab-generic-mode
+ etc-modules-conf-generic-mode
+ etc-passwd-generic-mode
+ etc-services-generic-mode
+ fvwm-generic-mode
+ inetd-conf-generic-mode
+ mailagent-rules-generic-mode
+ mailrc-generic-mode
+ named-boot-generic-mode
+ named-database-generic-mode
+ prototype-generic-mode
+ resolve-conf-generic-mode
+ samba-generic-mode
+ );x-resource-generic-mode) ;; XEmacs: use xrdb-mode
+ "List of generic modes that are defined by default on Unix.")
+
+(defconst generic-other-modes
+ '(astap-generic-mode
+ ibis-generic-mode
+ pkginfo-generic-mode
+ spice-generic-mode)
+ "List of generic mode that are not defined by default.")
+
+(defcustom generic-define-mswindows-modes
+ (memq system-type '(windows-nt ms-dos))
+ "*Non-nil means the modes in `generic-mswindows-modes' will be defined.
+This is a list of MS-Windows specific generic modes. This variable
+only effects the default value of `generic-extras-enable-list'."
+ :group 'generic-x
+ :type 'boolean
+ :version "22.1")
+(make-obsolete-variable 'generic-define-mswindows-modes 'generic-extras-enable-list); "22.1") ;; XEmacs: 2 args in < 21.4.17
+
+(defcustom generic-define-unix-modes
+ (not (memq system-type '(windows-nt ms-dos)))
+ "*Non-nil means the modes in `generic-unix-modes' will be defined.
+This is a list of Unix specific generic modes. This variable only
+effects the default value of `generic-extras-enable-list'."
+ :group 'generic-x
+ :type 'boolean
+ :version "22.1")
+(make-obsolete-variable 'generic-define-unix-modes 'generic-extras-enable-list) ;"22.1") ;; XEmacs: 2 args in < 21.4.17
+
+(defcustom generic-extras-enable-list
+ (append generic-default-modes
+ (if generic-define-mswindows-modes generic-mswindows-modes)
+ (if generic-define-unix-modes generic-unix-modes)
+ nil)
+ "List of generic modes to define.
+Each entry in the list should be a symbol. If you set this variable
+directly, without using customize, you must reload generic-x to put
+your changes into effect."
+ :group 'generic-x
+ :type (let (list)
+ (dolist (mode
+ (sort (append generic-default-modes
+ generic-mswindows-modes
+ generic-unix-modes
+ generic-other-modes
+ nil)
+ (lambda (a b)
+ (string< (symbol-name b)
+ (symbol-name a))))
+ (cons 'set list))
+ (push `(const ,mode) list)))
+ :set (lambda (s v)
+ (set-default s v)
+ (unless load-in-progress
+ (load "generic-x")))
+ :version "22.1")
+
;;; Apache
-(and
- (memq 'apache-conf-generic-mode generic-extras-enable-list)
+(when (memq 'apache-conf-generic-mode generic-extras-enable-list)
-(define-generic-mode 'apache-conf-generic-mode
- (list ?#)
- nil
- '(("^\\s-*\\(<.*>\\)" 1 'font-lock-constant-face)
- ("^\\s-*\\(\\sw+\\)\\s-" 1 'font-lock-variable-name-face))
- (list "srm\\.conf\\'" "httpd\\.conf\\'" "access\\.conf\\'")
- (list
- (function
- (lambda ()
+(define-generic-mode apache-conf-generic-mode
+ '(?#)
+ nil
+ '(("^\\s-*\\(<.*>\\)" 1 font-lock-constant-face)
+ ("^\\s-*\\(\\sw+\\)\\s-" 1 font-lock-variable-name-face))
+ '("srm\\.conf\\'" "httpd\\.conf\\'" "access\\.conf\\'")
+ (list
+ (function
+ (lambda ()
(setq imenu-generic-expression
'((nil "^\\([-A-Za-z0-9_]+\\)" 1)
("*Directories*" "^\\s-*<Directory\\s-*\\([^>]+\\)>" 1)
- ("*Locations*" "^\\s-*<Location\\s-*\\([^>]+\\)>" 1)
- ))
- )))
- "Generic mode for Apache or HTTPD configuration files."))
+ ("*Locations*" "^\\s-*<Location\\s-*\\([^>]+\\)>" 1))))))
+ "Generic mode for Apache or HTTPD configuration files."))
-(and
- (memq 'apache-log-generic-mode generic-extras-enable-list)
+(when (memq 'apache-log-generic-mode generic-extras-enable-list)
-(define-generic-mode 'apache-log-generic-mode
+(define-generic-mode apache-log-generic-mode
nil
nil
;; Hostname ? user date request return-code number-of-bytes
'(("^\\([-a-zA-z0-9.]+\\) - [-A-Za-z]+ \\(\\[.*\\]\\)"
(1 font-lock-constant-face)
- (2 font-lock-variable-name-face))
- )
- (list "access_log\\'")
+ (2 font-lock-variable-name-face)))
+ '("access_log\\'")
nil
- "Mode for Apache log files."))
+ "Mode for Apache log files"))
;;; Samba
-(and
- (memq 'samba-generic-mode generic-extras-enable-list)
+(when (memq 'samba-generic-mode generic-extras-enable-list)
-(define-generic-mode 'samba-generic-mode
- (list ?\; ?#)
- nil
- '(
- ("^\\(\\[.*\\]\\)" 1 'font-lock-constant-face)
- ("^\\s-*\\(.+\\)=\\([^\r\n]*\\)"
- (1 'font-lock-variable-name-face)
- (2 'font-lock-type-face))
- )
- (list "smb\\.conf\\'")
- (list 'generic-bracket-support)
- "Generic mode for Samba configuration files."))
+(define-generic-mode samba-generic-mode
+ '(?\; ?#)
+ nil
+ '(("^\\(\\[.*\\]\\)" 1 font-lock-constant-face)
+ ("^\\s-*\\(.+\\)=\\([^\r\n]*\\)"
+ (1 font-lock-variable-name-face)
+ (2 font-lock-type-face)))
+ '("smb\\.conf\\'")
+ '(generic-bracket-support)
+ "Generic mode for Samba configuration files."))
;;; Fvwm
;; This is pretty basic. Also, modes for other window managers could
;; be defined as well.
-(and
-(memq 'fvwm-generic-mode generic-extras-enable-list)
+(when (memq 'fvwm-generic-mode generic-extras-enable-list)
-(define-generic-mode 'fvwm-generic-mode
- (list ?#)
- (list
- "AddToMenu"
+(define-generic-mode fvwm-generic-mode
+ '(?#)
+ '("AddToMenu"
"AddToFunc"
"ButtonStyle"
"EndFunction"
＠＠ -232,435 +354,408 ＠＠ you must reload generic-x to enable the
"Mouse"
"PixmapPath"
"Popup"
- "Style"
- )
- nil
- (list "\\.fvwmrc\\'" "\\.fvwm2rc\\'")
- nil
- "Generic mode for FVWM configuration files."))
+ "Style")
+ nil
+ '("\\.fvwmrc\\'" "\\.fvwm2rc\\'")
+ nil
+ "Generic mode for FVWM configuration files."))
;;; X Resource
;; I'm pretty sure I've seen an actual mode to do this, but I don't
;; think it's standard with Emacs
-(and
- (memq 'x-resource-generic-mode generic-extras-enable-list)
+(when (memq 'x-resource-generic-mode generic-extras-enable-list)
-(define-generic-mode 'x-resource-generic-mode
- (list ?!)
- nil
- '(("^\\([^:\n]+:\\)" 1 'font-lock-variable-name-face))
- (list "\\.Xdefaults\\'" "\\.Xresources\\'" "\\.Xenvironment\\'" "\\.ad\\'")
- nil
- "Generic mode for X Resource configuration files."))
+(define-generic-mode x-resource-generic-mode
+ '(?!)
+ nil
+ '(("^\\([^:\n]+:\\)" 1 font-lock-variable-name-face))
+ '("\\.Xdefaults\\'" "\\.Xresources\\'" "\\.Xenvironment\\'" "\\.ad\\'")
+ nil
+ "Generic mode for X Resource configuration files."))
;;; Hosts
-(and
- (memq 'hosts-generic-mode generic-extras-enable-list)
+(when (memq 'hosts-generic-mode generic-extras-enable-list)
-(define-generic-mode 'hosts-generic-mode
- (list ?#)
- (list "localhost")
- '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 'font-lock-constant-face))
- (list "[hH][oO][sS][tT][sS]\\'")
- nil
- "Generic mode for HOSTS files."))
+(define-generic-mode hosts-generic-mode
+ '(?#)
+ '("localhost")
+ '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 font-lock-constant-face))
+ '("[hH][oO][sS][tT][sS]\\'")
+ nil
+ "Generic mode for HOSTS files."))
;;; Windows INF files
-(and
- (memq 'inf-generic-mode generic-extras-enable-list)
+(when (memq 'inf-generic-mode generic-extras-enable-list)
-(define-generic-mode 'inf-generic-mode
- (list ?\;)
- nil
- '(("^\\(\\[.*\\]\\)" 1 'font-lock-constant-face))
- (list "\\.[iI][nN][fF]\\'")
- (list 'generic-bracket-support)
- "Generic mode for MS-Windows INF files."))
+(define-generic-mode inf-generic-mode
+ '(?\;)
+ nil
+ '(("^\\(\\[.*\\]\\)" 1 font-lock-constant-face))
+ '("\\.[iI][nN][fF]\\'")
+ '(generic-bracket-support)
+ "Generic mode for MS-Windows INF files."))
;;; Windows INI files
;; Should define escape character as well!
-(and
- (memq 'ini-generic-mode generic-extras-enable-list)
+(when (memq 'ini-generic-mode generic-extras-enable-list)
-(define-generic-mode 'ini-generic-mode
- (list ?\;)
- nil
- '(("^\\(\\[.*\\]\\)" 1 'font-lock-constant-face)
- ("^\\([^=\n\r]*\\)=\\([^\n\r]*\\)$"
- (1 font-lock-function-name-face)
- (2 font-lock-variable-name-face)))
- (list "\\.[iI][nN][iI]\\'")
- (list
- (function
- (lambda ()
- (setq imenu-generic-expression
- '((nil "^\\[\\(.*\\)\\]" 1)
- ("*Variables*" "^\\s-*\\([^=]+\\)\\s-*=" 1)))
- )))
- "Generic mode for MS-Windows INI files."))
+(define-generic-mode ini-generic-mode
+ '(?\;)
+ nil
+ '(("^\\(\\[.*\\]\\)" 1 font-lock-constant-face)
+ ("^\\([^=\n\r]*\\)=\\([^\n\r]*\\)$"
+ (1 font-lock-function-name-face)
+ (2 font-lock-variable-name-face)))
+ '("\\.[iI][nN][iI]\\'")
+ (list
+ (function
+ (lambda ()
+ (setq imenu-generic-expression
+ '((nil "^\\[\\(.*\\)\\]" 1)
+ ("*Variables*" "^\\s-*\\([^=]+\\)\\s-*=" 1))))))
+ "Generic mode for MS-Windows INI files.
+You can use `ini-generic-mode-find-file-hook' to enter this mode
+automatically for INI files whose names do not end in \".ini\".")
+
+(defun ini-generic-mode-find-file-hook ()
+ "Hook function to enter Ini-Generic mode automatically for INI files.
+Done if the first few lines of a file in Fundamental mode look
+like an INI file. You can add this hook to `find-file-hook'."
+ (and (eq major-mode 'fundamental-mode)
+ (save-excursion
+ (goto-char (point-min))
+ (and (looking-at "^\\s-*\\[.*\\]")
+ (ini-generic-mode)))))
+(defalias 'generic-mode-ini-file-find-file-hook 'ini-generic-mode-find-file-hook))
;;; Windows REG files
-;; Unfortunately, Windows 95 and Windows NT have different REG file syntax!
-(and
- (memq 'reg-generic-mode generic-extras-enable-list)
-
-(define-generic-mode 'reg-generic-mode
- '(?\;)
- '("key" "classes_root" "REGEDIT" "REGEDIT4")
- '(("\\(\\[.*]\\)" 1 'font-lock-constant-face)
- ("^\\([^\n\r]*\\)\\s-*=" 1 'font-lock-variable-name-face))
- '("\\.[rR][eE][gG]\\'")
- (list
- (function
- (lambda ()
- (setq imenu-generic-expression
- '((nil "^\\s-*\\(.*\\)\\s-*=" 1))))))
- "Generic mode for MS-Windows Registry files."))
+;;; Unfortunately, Windows 95 and Windows NT have different REG file syntax!
+(when (memq 'reg-generic-mode generic-extras-enable-list)
+
+(define-generic-mode reg-generic-mode
+ '(?\;)
+ '("key" "classes_root" "REGEDIT" "REGEDIT4")
+ '(("\\(\\[.*]\\)" 1 font-lock-constant-face)
+ ("^\\([^\n\r]*\\)\\s-*=" 1 font-lock-variable-name-face))
+ '("\\.[rR][eE][gG]\\'")
+ (list
+ (function
+ (lambda ()
+ (setq imenu-generic-expression
+ '((nil "^\\s-*\\(.*\\)\\s-*=" 1))))))
+ "Generic mode for MS-Windows Registry files."))
;;; DOS/Windows BAT files
-(if (not (memq 'bat-generic-mode generic-extras-enable-list))
- nil
-(define-generic-mode 'bat-generic-mode
- nil
- nil
+(when (memq 'bat-generic-mode generic-extras-enable-list)
+
+(define-generic-mode bat-generic-mode
+ nil
+ nil
+ (eval-when-compile
(list
;; Make this one first in the list, otherwise comments will
;; be over-written by other variables
- (list "^[＠ \t]*\\([rR][eE][mM][^\n\r]*\\)" 1 'font-lock-comment-face t)
- (list "^[ \t]*\\(::.*\\)" 1 'font-lock-comment-face t)
- (list
- "^[＠ \t]*\\([bB][rR][eE][aA][kK]\\|[vV][eE][rR][iI][fF][yY]\\)[ \t]+\\([oO]\\([nN]\\|[fF][fF]\\)\\)"
- '(1 font-lock-builtin-face)
- '(2 font-lock-constant-face t t))
+ '("^[＠ \t]*\\([rR][eE][mM][^\n\r]*\\)" 1 font-lock-comment-face t)
+ '("^[ \t]*\\(::.*\\)" 1 font-lock-comment-face t)
+ '("^[＠ \t]*\\([bB][rR][eE][aA][kK]\\|[vV][eE][rR][iI][fF][yY]\\)[ \t]+\\([oO]\\([nN]\\|[fF][fF]\\)\\)"
+ (1 font-lock-builtin-face)
+ (2 font-lock-constant-face t t))
;; Any text (except ON/OFF) following ECHO is a string.
- (list
- "^[＠ \t]*\\([eE][cC][hH][oO]\\)[ \t]+\\(\\([oO]\\([nN]\\|[fF][fF]\\)\\)\\|\\([^>|\r\n]+\\)\\)"
- '(1 font-lock-builtin-face)
- '(3 font-lock-constant-face t t)
- '(5 font-lock-string-face t t))
+ '("^[＠ \t]*\\([eE][cC][hH][oO]\\)[ \t]+\\(\\([oO]\\([nN]\\|[fF][fF]\\)\\)\\|\\([^>|\r\n]+\\)\\)"
+ (1 font-lock-builtin-face)
+ (3 font-lock-constant-face t t)
+ (5 font-lock-string-face t t))
;; These keywords appear as the first word on a line. (Actually, they
;; can also appear after "if ..." or "for ..." clause, but since they
;; are frequently used in simple text, we punt.)
;; In `generic-bat-mode-setup-function' we make the keywords
;; case-insensitive
(generic-make-keywords-list
- (list
- "for"
- "if"
- )
- 'font-lock-keyword-face "^[＠ \t]*")
+ '("for"
+ "if")
+ font-lock-keyword-face "^[＠ \t]*")
;; These keywords can be anywhere on a line
;; In `generic-bat-mode-setup-function' we make the keywords
;; case-insensitive
(generic-make-keywords-list
- (list
- "do"
- "exist"
- "errorlevel"
- "goto"
- "not"
- ) 'font-lock-keyword-face)
+ '("do"
+ "exist"
+ "errorlevel"
+ "goto"
+ "not")
+ font-lock-keyword-face)
;; These are built-in commands. Only frequently-used ones are listed.
(generic-make-keywords-list
- (list
- "CALL" "call" "Call"
- "CD" "cd" "Cd"
- "CLS" "cls" "Cls"
- "COPY" "copy" "Copy"
- "DEL" "del" "Del"
- "ECHO" "echo" "Echo"
- "MD" "md" "Md"
- "PATH" "path" "Path"
- "PAUSE" "pause" "Pause"
- "PROMPT" "prompt" "Prompt"
- "RD" "rd" "Rd"
- "REN" "ren" "Ren"
- "SET" "set" "Set"
- "START" "start" "Start"
- "SHIFT" "shift" "Shift"
- ) 'font-lock-builtin-face "[ \t|\n]")
- (list "^[ \t]*\\(:\\sw+\\)" 1 'font-lock-function-name-face t)
- (list "\\(%\\sw+%\\)" 1 'font-lock-variable-name-face t)
- (list "\\(%[0-9]\\)" 1 'font-lock-variable-name-face t)
- (list "\\(/[^/ \"\t\n]+\\)" 1 'font-lock-type-face)
- (list "[\t ]+\\([+-][^\t\n\" ]+\\)" 1 'font-lock-type-face)
- (list "[ \t\n|]\\<\\([gG][oO][tT][oO]\\)\\>[ \t]*\\(\\sw+\\)?"
- '(1 font-lock-keyword-face)
- '(2 font-lock-function-name-face nil t))
- (list "[ \t\n|]\\<\\([sS][eE][tT]\\)\\>[ \t]*\\(\\sw+\\)?[ \t]*=?"
- '(1 font-lock-builtin-face)
- '(2 font-lock-variable-name-face t t))
+ '("CALL" "call" "Call"
+ "CD" "cd" "Cd"
+ "CLS" "cls" "Cls"
+ "COPY" "copy" "Copy"
+ "DEL" "del" "Del"
+ "ECHO" "echo" "Echo"
+ "MD" "md" "Md"
+ "PATH" "path" "Path"
+ "PAUSE" "pause" "Pause"
+ "PROMPT" "prompt" "Prompt"
+ "RD" "rd" "Rd"
+ "REN" "ren" "Ren"
+ "SET" "set" "Set"
+ "START" "start" "Start"
+ "SHIFT" "shift" "Shift")
+ font-lock-builtin-face "[ \t|\n]")
+ '("^[ \t]*\\(:\\sw+\\)" 1 font-lock-function-name-face t)
+ '("\\(%\\sw+%\\)" 1 font-lock-variable-name-face t)
+ '("\\(%[0-9]\\)" 1 font-lock-variable-name-face t)
+ '("\\(/[^/ \"\t\n]+\\)" 1 font-lock-type-face)
+ '("[\t ]+\\([+-][^\t\n\" ]+\\)" 1 font-lock-type-face)
+ '("[ \t\n|]\\<\\([gG][oO][tT][oO]\\)\\>[ \t]*\\(\\sw+\\)?"
+ (1 font-lock-keyword-face)
+ (2 font-lock-function-name-face nil t))
+ '("[ \t\n|]\\<\\([sS][eE][tT]\\)\\>[ \t]*\\(\\sw+\\)?[ \t]*=?"
+ (1 font-lock-builtin-face)
+ (2 font-lock-variable-name-face t t))))
+ '("\\.[bB][aA][tT]\\'"
+ "\\`[cC][oO][nN][fF][iI][gG]\\."
+ "\\`[aA][uU][tT][oO][eE][xX][eE][cC]\\.")
+ '(generic-bat-mode-setup-function)
+ "Generic mode for MS-Windows BAT files.")
- )
- (list
- "\\.[bB][aA][tT]\\'"
- "\\`[cC][oO][nN][fF][iI][gG]\\."
- "\\`[aA][uU][tT][oO][eE][xX][eE][cC]\\." )
- (list 'generic-bat-mode-setup-function)
- "Generic mode for MS-Windows BAT files.")
-
- (defvar bat-generic-mode-syntax-table nil
- "Syntax table in use in `bat-generic-mode' buffers.")
-
- (defvar bat-generic-mode-keymap (make-sparse-keymap)
- "Keymap for `bat-generic-mode'.")
-
- (defun bat-generic-mode-compile ()
- "Run the current BAT file in a compilation buffer."
- (interactive)
- (let ((compilation-buffer-name-function
- (function
- (lambda(ign)
- (concat "*" (buffer-file-name) "*")))
- )
- )
- (compile
- (concat (w32-shell-name) " -c " (buffer-file-name)))))
-
- (defun bat-generic-mode-run-as-comint ()
- "Run the current BAT file in a comint buffer."
- (interactive)
- (require 'comint)
- (let* ((file (buffer-file-name))
- (buf-name (concat "*" file "*")))
- (save-excursion
- (set-buffer
- (get-buffer-create buf-name))
- (erase-buffer)
- (comint-mode)
- (comint-exec
- buf-name
- file
- (w32-shell-name)
- nil
- (list
- "-c"
- file
- )
- )
- (display-buffer buf-name))))
-
- (define-key bat-generic-mode-keymap "\C-c\C-c" 'bat-generic-mode-compile)
-
- ;; Make underscores count as words
- (if bat-generic-mode-syntax-table
- nil
- (setq bat-generic-mode-syntax-table (make-syntax-table))
- (modify-syntax-entry ?_ "w" bat-generic-mode-syntax-table))
-
- ;; bat-generic-mode doesn't use the comment functionality of generic-mode
- ;; because it has a three-letter comment-string, so we do it
- ;; here manually instead
- (defun generic-bat-mode-setup-function ()
- (make-local-variable 'parse-sexp-ignore-comments)
- (make-local-variable 'comment-start)
- (make-local-variable 'comment-start-skip)
- (make-local-variable 'comment-end)
- (setq imenu-generic-expression '((nil "^:\\(\\sw+\\)" 1))
- parse-sexp-ignore-comments t
- comment-end ""
- comment-start "REM "
- comment-start-skip "[Rr][Ee][Mm] *"
- )
- (set-syntax-table bat-generic-mode-syntax-table)
- ;; Make keywords case-insensitive
- (setq font-lock-defaults (list 'generic-font-lock-defaults nil t))
- (use-local-map bat-generic-mode-keymap)
- )
- )
+(defvar bat-generic-mode-syntax-table nil
+ "Syntax table in use in `bat-generic-mode' buffers.")
+
+(defvar bat-generic-mode-keymap (make-sparse-keymap)
+ "Keymap for bet-generic-mode.")
+(defun bat-generic-mode-compile ()
+ "Run the current BAT file in a compilation buffer."
+ (interactive)
+ (let ((compilation-buffer-name-function
+ (function
+ (lambda(ign)
+ (concat "*" (buffer-file-name) "*")))))
+ (compile
+ (concat (w32-shell-name) " -c " (buffer-file-name)))))
+
+(eval-when-compile (require 'comint))
+(defun bat-generic-mode-run-as-comint ()
+ "Run the current BAT file in a comint buffer."
+ (interactive)
+ (require 'comint)
+ (let* ((file (buffer-file-name))
+ (buf-name (concat "*" file "*")))
+ (save-excursion
+ (set-buffer
+ (get-buffer-create buf-name))
+ (erase-buffer)
+ (comint-mode)
+ (comint-exec
+ buf-name
+ file
+ (w32-shell-name)
+ nil
+ (list "-c" file))
+ (display-buffer buf-name))))
+
+(define-key bat-generic-mode-keymap "\C-c\C-c" 'bat-generic-mode-compile)
+
+;; Make underscores count as words
+(unless bat-generic-mode-syntax-table
+ (setq bat-generic-mode-syntax-table (make-syntax-table))
+ (modify-syntax-entry ?_ "w" bat-generic-mode-syntax-table))
+
+;; bat-generic-mode doesn't use the comment functionality of
+;; define-generic-mode because it has a three-letter comment-string,
+;; so we do it here manually instead
+(defun generic-bat-mode-setup-function ()
+ (make-local-variable 'parse-sexp-ignore-comments)
+ (make-local-variable 'comment-start)
+ (make-local-variable 'comment-start-skip)
+ (make-local-variable 'comment-end)
+ (setq imenu-generic-expression '((nil "^:\\(\\sw+\\)" 1))
+ parse-sexp-ignore-comments t
+ comment-end ""
+ comment-start "REM "
+ comment-start-skip "[Rr][Ee][Mm] *")
+ (set-syntax-table bat-generic-mode-syntax-table)
+ ;; Make keywords case-insensitive
+ (setq font-lock-defaults '(generic-font-lock-keywords nil t))
+ (use-local-map bat-generic-mode-keymap)))
+
;;; Mailagent
-;; Mailagent is a Unix mail filtering program. Anyone wanna do a generic mode
-;; for procmail?
-(and
- (memq 'mailagent-rules-generic-mode generic-extras-enable-list)
-
-(define-generic-mode 'mailagent-rules-generic-mode
- (list ?#)
- (list "SAVE" "DELETE" "PIPE" "ANNOTATE" "REJECT")
- '(("^\\(\\sw+\\)\\s-*=" 1 'font-lock-variable-name-face)
- ("\\s-/\\([^/]+\\)/[i, \t\n]" 1 'font-lock-constant-face))
- (list "\\.rules\\'")
- (list 'mailagent-rules-setup-function)
- "Mode for Mailagent rules files.")
-
-(defun mailagent-rules-setup-function ()
- (make-local-variable 'imenu-generic-expression)
- (setq imenu-generic-expression
- '((nil "\\s-/\\([^/]+\\)/[i, \t\n]" 1))))
- )
+;; Mailagent is a Unix mail filtering program. Anyone wanna do a
+;; generic mode for procmail?
+(when (memq 'mailagent-rules-generic-mode generic-extras-enable-list)
+
+(define-generic-mode mailagent-rules-generic-mode
+ '(?#)
+ '("SAVE" "DELETE" "PIPE" "ANNOTATE" "REJECT")
+ '(("^\\(\\sw+\\)\\s-*=" 1 font-lock-variable-name-face)
+ ("\\s-/\\([^/]+\\)/[i, \t\n]" 1 font-lock-constant-face))
+ '("\\.rules\\'")
+ (list
+ (function
+ (lambda ()
+ (setq imenu-generic-expression
+ '((nil "\\s-/\\([^/]+\\)/[i, \t\n]" 1))))))
+ "Mode for Mailagent rules files."))
;; Solaris/Sys V prototype files
-(and
- (memq 'prototype-generic-mode generic-extras-enable-list)
+(when (memq 'prototype-generic-mode generic-extras-enable-list)
-(define-generic-mode 'prototype-generic-mode
- (list ?#)
- nil
- '(
- ("^\\([0-9]\\)?\\s-*\\([a-z]\\)\\s-+\\([A-Za-z_]+\\)\\s-+\\([^\n\r]*\\)$"
- (2 font-lock-constant-face)
- (3 font-lock-keyword-face))
- ("^\\([a-z]\\) \\([A-Za-z_]+\\)=\\([^\n\r]*\\)$"
- (1 font-lock-constant-face)
- (2 font-lock-keyword-face)
- (3 font-lock-variable-name-face))
- ("^\\(!\\s-*\\(search\\|include\\|default\\)\\)\\s-*\\([^\n\r]*\\)$"
- (1 font-lock-keyword-face)
- (3 font-lock-variable-name-face))
- ("^\\(!\\s-*\\sw+\\)=\\([^\n\r]*\\)$"
- (1 font-lock-keyword-face)
- (2 font-lock-variable-name-face))
- )
- (list "prototype\\'")
- nil
- "Mode for Sys V prototype files."))
+(define-generic-mode prototype-generic-mode
+ '(?#)
+ nil
+ '(("^\\([0-9]\\)?\\s-*\\([a-z]\\)\\s-+\\([A-Za-z_]+\\)\\s-+\\([^\n\r]*\\)$"
+ (2 font-lock-constant-face)
+ (3 font-lock-keyword-face))
+ ("^\\([a-z]\\) \\([A-Za-z_]+\\)=\\([^\n\r]*\\)$"
+ (1 font-lock-constant-face)
+ (2 font-lock-keyword-face)
+ (3 font-lock-variable-name-face))
+ ("^\\(!\\s-*\\(search\\|include\\|default\\)\\)\\s-*\\([^\n\r]*\\)$"
+ (1 font-lock-keyword-face)
+ (3 font-lock-variable-name-face))
+ ("^\\(!\\s-*\\sw+\\)=\\([^\n\r]*\\)$"
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face)))
+ '("prototype\\'")
+ nil
+ "Mode for Sys V prototype files."))
;; Solaris/Sys V pkginfo files
-(and
- (memq 'pkginfo-generic-mode generic-extras-enable-list)
+(when (memq 'pkginfo-generic-mode generic-extras-enable-list)
-(define-generic-mode 'pkginfo-generic-mode
- (list ?#)
- nil
- '(
- ("^\\([A-Za-z_]+\\)=\\([^\n\r]*\\)$"
- (1 font-lock-keyword-face)
- (2 font-lock-variable-name-face))
- )
- (list "pkginfo\\'")
- nil
- "Mode for Sys V pkginfo files."))
+(define-generic-mode pkginfo-generic-mode
+ '(?#)
+ nil
+ '(("^\\([A-Za-z_]+\\)=\\([^\n\r]*\\)$"
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face)))
+ '("pkginfo\\'")
+ nil
+ "Mode for Sys V pkginfo files."))
-;; JavaScript mode
+;; Javascript mode
;; Includes extra keywords from Armando Singer [asinger(a)MAIL.COLGATE.EDU]
-(define-generic-mode 'javascript-generic-mode
- (list "//" '("/*" . "*/"))
- (list
- "break"
- "case"
- "continue"
- "default"
- "delete"
- "do"
- "else"
- "export"
- "for"
- "function"
- "if"
- "import"
- "in"
- "new"
- "return"
- "switch"
- "this"
- "typeof"
- "var"
- "void"
- "while"
- "with"
- ;; words reserved for ECMA extensions below
- "catch"
- "class"
- "const"
- "debugger"
- "enum"
- "extends"
- "finally"
- "super"
- "throw"
- "try"
- ;; Java Keywords reserved by JavaScript
- "abstract"
- "boolean"
- "byte"
- "char"
- "double"
- "false"
- "final"
- "float"
- "goto"
- "implements"
- "instanceof"
- "int"
- "interface"
- "long"
- "native"
- "null"
- "package"
- "private"
- "protected"
- "public"
- "short"
- "static"
- "synchronized"
- "throws"
- "transient"
- "true"
- )
- (list
- (list "^\\s-*function\\s-+\\([A-Za-z0-9_]+\\)"
- '(1 font-lock-function-name-face))
- (list "^\\s-*var\\s-+\\([A-Za-z0-9_]+\\)"
- '(1 font-lock-variable-name-face))
- )
- (list "\\.js\\'")
+(when (memq 'javascript-generic-mode generic-extras-enable-list)
+
+(define-generic-mode javascript-generic-mode
+ '("//" ("/*" . "*/"))
+ '("break"
+ "case"
+ "continue"
+ "default"
+ "delete"
+ "do"
+ "else"
+ "export"
+ "for"
+ "function"
+ "if"
+ "import"
+ "in"
+ "new"
+ "return"
+ "switch"
+ "this"
+ "typeof"
+ "var"
+ "void"
+ "while"
+ "with"
+ ;; words reserved for ECMA extensions below
+ "catch"
+ "class"
+ "const"
+ "debugger"
+ "enum"
+ "extends"
+ "finally"
+ "super"
+ "throw"
+ "try"
+ ;; Java Keywords reserved by JavaScript
+ "abstract"
+ "boolean"
+ "byte"
+ "char"
+ "double"
+ "false"
+ "final"
+ "float"
+ "goto"
+ "implements"
+ "instanceof"
+ "int"
+ "interface"
+ "long"
+ "native"
+ "null"
+ "package"
+ "private"
+ "protected"
+ "public"
+ "short"
+ "static"
+ "synchronized"
+ "throws"
+ "transient"
+ "true")
+ '(("^\\s-*function\\s-+\\([A-Za-z0-9_]+\\)"
+ (1 font-lock-function-name-face))
+ ("^\\s-*var\\s-+\\([A-Za-z0-9_]+\\)"
+ (1 font-lock-variable-name-face)))
+ '("\\.js\\'")
(list
(function
(lambda ()
(setq imenu-generic-expression
'((nil "^function\\s-+\\([A-Za-z0-9_]+\\)" 1)
- ("*Variables*" "^var\\s-+\\([A-Za-z0-9_]+\\)" 1)
- ))
- )))
- "Generic mode for JavaScript files.")
+ ("*Variables*" "^var\\s-+\\([A-Za-z0-9_]+\\)" 1))))))
+ "Mode for JavaScript files."))
;; VRML files
-(define-generic-mode 'vrml-generic-mode
- (list ?#)
- (list
- "DEF"
- "NULL"
- "USE"
- "Viewpoint"
- "ambientIntensity"
- "appearance"
- "children"
- "color"
- "coord"
- "coordIndex"
- "creaseAngle"
- "diffuseColor"
- "emissiveColor"
- "fieldOfView"
- "geometry"
- "info"
- "material"
- "normal"
- "orientation"
- "position"
- "shininess"
- "specularColor"
- "texCoord"
- "texture"
- "textureTransform"
- "title"
- "transparency"
- "type"
- )
- (list
- (list "USE\\s-+\\([-A-Za-z0-9_]+\\)"
- '(1 font-lock-constant-face))
- (list "DEF\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([A-Za-z0-9]+\\)\\s-*{"
- '(1 font-lock-type-face)
- '(2 font-lock-constant-face))
- (list "^\\s-*\\([-A-Za-z0-9_]+\\)\\s-*{"
- '(1 font-lock-function-name-face))
- (list
- "^\\s-*\\(geometry\\|appearance\\|material\\)\\s-+\\([-A-Za-z0-9_]+\\)"
- '(2 font-lock-variable-name-face))
- )
- (list "\\.wrl\\'")
+(when (memq 'vrml-generic-mode generic-extras-enable-list)
+
+(define-generic-mode vrml-generic-mode
+ '(?#)
+ '("DEF"
+ "NULL"
+ "USE"
+ "Viewpoint"
+ "ambientIntensity"
+ "appearance"
+ "children"
+ "color"
+ "coord"
+ "coordIndex"
+ "creaseAngle"
+ "diffuseColor"
+ "emissiveColor"
+ "fieldOfView"
+ "geometry"
+ "info"
+ "material"
+ "normal"
+ "orientation"
+ "position"
+ "shininess"
+ "specularColor"
+ "texCoord"
+ "texture"
+ "textureTransform"
+ "title"
+ "transparency"
+ "type")
+ '(("USE\\s-+\\([-A-Za-z0-9_]+\\)"
+ (1 font-lock-constant-face))
+ ("DEF\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([A-Za-z0-9]+\\)\\s-*{"
+ (1 font-lock-type-face)
+ (2 font-lock-constant-face))
+ ("^\\s-*\\([-A-Za-z0-9_]+\\)\\s-*{"
+ (1 font-lock-function-name-face))
+ ("^\\s-*\\(geometry\\|appearance\\|material\\)\\s-+\\([-A-Za-z0-9_]+\\)"
+ (2 font-lock-variable-name-face)))
+ '("\\.wrl\\'")
(list
(function
(lambda ()
＠＠ -668,1280 +763,1238 ＠＠ you must reload generic-x to enable the
'((nil "^\\([A-Za-z0-9_]+\\)\\s-*{" 1)
("*Definitions*"
"DEF\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([A-Za-z0-9]+\\)\\s-*{"
- 1)))
- )))
- "Generic mode for VRML files.")
+ 1))))))
+ "Generic Mode for VRML files."))
;; Java Manifests
-;; http://java.sun.com/j2se/1.4.2/docs/guide/jar/jar.html#JAR%20Manifest
-;; XEmacs change: autoload a dummy autoload instead of a generic mode.
-;;;###autoload(autoload 'java-manifest-generic-mode "generic-x" nil t)
-(define-generic-mode 'java-manifest-generic-mode
- (list ?#)
- (list
- "Name"
- "Digest-Algorithms"
- "Manifest-Version"
- "Required-Version"
- "Signature-Version"
- "Magic"
- "Java-Bean"
- "Depends-On"
- ;; XEmacs additions
- "Ant-Version"
- "Class-Path"
- "Comment"
- "Content-Type"
- "Created-By"
- "Extension-List"
- "Extension-Name"
- "Implementation-Title"
- "Implementation-URL"
- "Implementation-Version"
- "Implementation-Vendor"
- "Implementation-Vendor-Id"
- "Main-Class"
- "MD5-Digest"
- "Sealed"
- "SHA-Digest"
- "SHA1-Digest"
- "Specification-Title"
- "Specification-Vendor"
- "Specification-Version"
- )
+(when (memq 'java-manifest-generic-mode generic-extras-enable-list)
+
+(define-generic-mode java-manifest-generic-mode
+ '(?#)
+ '("Name"
+ "Digest-Algorithms"
+ "Manifest-Version"
+ "Required-Version"
+ "Signature-Version"
+ "Magic"
+ "Java-Bean"
+ "Depends-On"
+ ;; XEmacs additions
+ "Ant-Version"
+ "Class-Path"
+ "Comment"
+ "Content-Type"
+ "Created-By"
+ "Extension-List"
+ "Extension-Name"
+ "Implementation-Title"
+ "Implementation-URL"
+ "Implementation-Version"
+ "Implementation-Vendor"
+ "Implementation-Vendor-Id"
+ "Main-Class"
+ "MD5-Digest"
+ "Sealed"
+ "SHA-Digest"
+ "SHA1-Digest"
+ "Specification-Title"
+ "Specification-Vendor"
+ "Specification-Version")
'(("^Name:\\s-+\\([^\n\r]*\\)$"
(1 font-lock-variable-name-face))
("^\\(Manifest\\|Required\\|Signature\\)-Version:\\s-+\\([^\n\r]*\\)$"
- (2 font-lock-constant-face))
- )
- (list "[mM][aA][nN][iI][fF][eE][sS][tT]\\.[mM][fF]\\'")
+ (2 font-lock-constant-face)))
+ '("[mM][aA][nN][iI][fF][eE][sS][tT]\\.[mM][fF]\\'")
nil
- "Generic mode for Java jar manifest files")
-;; XEmacs addition
-;;;###autoload(add-to-list 'auto-mode-alist '("[mM][aA][nN][iI][fF][eE][sS][tT]\\.[mM][fF]\\'" . java-manifest-generic-mode))
+ "Mode for Java Manifest files"))
;; Java properties files
-;; XEmacs change: autoload a dummy autoload instead of a generic mode.
-;;;###autoload(autoload 'java-properties-generic-mode "generic-x" nil t)
-(define-generic-mode 'java-properties-generic-mode
- (list ?! ?#)
- nil
- (let ((java-properties-key
- "\\(\\([-A-Za-z0-9_\\./]\\|\\(\\\\[ =:]\\)\\)+\\)")
- (java-properties-value
- "\\([^\r\n]*\\)")
- )
- ;; Property and value can be separated in a number of different ways:
- ;; * whitespace
- ;; * an equal sign
- ;; * a colon
- (mapcar
- (function
- (lambda (elt)
- (list
- (concat "^" java-properties-key elt java-properties-value "$")
- '(1 font-lock-constant-face)
- '(4 font-lock-variable-name-face)
- )))
- ;; These are the separators
- (list ":\\s-*" "\\s-+" "\\s-*=\\s-*")
- )
- )
- ;; XEmacs change: associate .properties files
- (list "\\.properties\\'")
+(when (memq 'java-properties-generic-mode generic-extras-enable-list)
+
+(define-generic-mode java-properties-generic-mode
+ '(?! ?#)
+ nil
+ (eval-when-compile
+ (let ((java-properties-key
+ "\\(\\([-A-Za-z0-9_\\./]\\|\\(\\\\[ =:]\\)\\)+\\)")
+ (java-properties-value
+ "\\([^\r\n]*\\)"))
+ ;; Property and value can be separated in a number of different ways:
+ ;; * whitespace
+ ;; * an equal sign
+ ;; * a colon
+ (mapcar
+ (function
+ (lambda (elt)
+ (list
+ (concat "^" java-properties-key elt java-properties-value "$")
+ '(1 font-lock-constant-face)
+ '(4 font-lock-variable-name-face))))
+ ;; These are the separators
+ '(":\\s-*" "\\s-+" "\\s-*=\\s-*"))))
+ '("\\.properties\\'") ;; XEmacs addition
(list
(function
(lambda ()
(setq imenu-generic-expression
- '((nil "^\\([^#! \t\n\r=:]+\\)" 1)))
- )))
- "Generic mode for Java properties files.")
-;; XEmacs addition
-;;;###autoload(add-to-list 'auto-mode-alist '("\\.properties\\'" . java-properties-generic-mode))
+ '((nil "^\\([^#! \t\n\r=:]+\\)" 1))))))
+ "Mode for Java properties files."))
;; C shell alias definitions
-(and
- (memq 'alias-generic-mode generic-extras-enable-list)
+(when (memq 'alias-generic-mode generic-extras-enable-list)
-(define-generic-mode 'alias-generic-mode
- (list ?#)
- (list "alias" "unalias")
+(define-generic-mode alias-generic-mode
+ '(?#)
+ '("alias" "unalias")
'(("^alias\\s-+\\([-A-Za-z0-9_]+\\)\\s-+"
(1 font-lock-variable-name-face))
("^unalias\\s-+\\([-A-Za-z0-9_]+\\)\\s-*$"
- (1 font-lock-variable-name-face))
- )
- (list "alias\\'")
+ (1 font-lock-variable-name-face)))
+ '("alias\\'")
(list
(function
(lambda ()
(setq imenu-generic-expression
- '((nil "^\\(alias\\|unalias\\)\\s-+\\([-a-zA-Z0-9_]+\\)" 2)))
- )))
- "Generic mode for C Shell alias files.")
-)
+ '((nil "^\\(alias\\|unalias\\)\\s-+\\([-a-zA-Z0-9_]+\\)" 2))))))
+ "Mode for C Shell alias files."))
;;; Windows RC files
;; Contributed by ACorreir(a)pervasive-sw.com (Alfred Correira)
-(and
- (memq 'rc-generic-mode generic-extras-enable-list)
+(when (memq 'rc-generic-mode generic-extras-enable-list)
-(define-generic-mode 'rc-generic-mode
-;; (list ?\/)
- (list "//")
- '("ACCELERATORS"
- "AUTO3STATE"
- "AUTOCHECKBOX"
- "AUTORADIOBUTTON"
- "BITMAP"
- "BOTTOMMARGIN"
- "BUTTON"
- "CAPTION"
- "CHARACTERISTICS"
- "CHECKBOX"
- "CLASS"
- "COMBOBOX"
- "CONTROL"
- "CTEXT"
- "CURSOR"
- "DEFPUSHBUTTON"
- "DESIGNINFO"
- "DIALOG"
- "DISCARDABLE"
- "EDITTEXT"
- "EXSTYLE"
- "FONT"
- "GROUPBOX"
- "GUIDELINES"
- "ICON"
- "LANGUAGE"
- "LEFTMARGIN"
- "LISTBOX"
- "LTEXT"
- "MENUITEM SEPARATOR"
- "MENUITEM"
- "MENU"
- "MOVEABLE"
- "POPUP"
- "PRELOAD"
- "PURE"
- "PUSHBOX"
- "PUSHBUTTON"
- "RADIOBUTTON"
- "RCDATA"
- "RIGHTMARGIN"
- "RTEXT"
- "SCROLLBAR"
- "SEPARATOR"
- "STATE3"
- "STRINGTABLE"
- "STYLE"
- "TEXTINCLUDE"
- "TOOLBAR"
- "TOPMARGIN"
- "VERSIONINFO"
- "VERSION"
- )
- ;; the choice of what tokens go where is somewhat arbitrary,
- ;; as is the choice of which value tokens are included, as
- ;; the choice of face for each token group
- (list
- (eval-when-compile
- (generic-make-keywords-list
- (list
- "FILEFLAGSMASK"
+(define-generic-mode rc-generic-mode
+ ;; '(?\/)
+ '("//")
+ '("ACCELERATORS"
+ "AUTO3STATE"
+ "AUTOCHECKBOX"
+ "AUTORADIOBUTTON"
+ "BITMAP"
+ "BOTTOMMARGIN"
+ "BUTTON"
+ "CAPTION"
+ "CHARACTERISTICS"
+ "CHECKBOX"
+ "CLASS"
+ "COMBOBOX"
+ "CONTROL"
+ "CTEXT"
+ "CURSOR"
+ "DEFPUSHBUTTON"
+ "DESIGNINFO"
+ "DIALOG"
+ "DISCARDABLE"
+ "EDITTEXT"
+ "EXSTYLE"
+ "FONT"
+ "GROUPBOX"
+ "GUIDELINES"
+ "ICON"
+ "LANGUAGE"
+ "LEFTMARGIN"
+ "LISTBOX"
+ "LTEXT"
+ "MENUITEM SEPARATOR"
+ "MENUITEM"
+ "MENU"
+ "MOVEABLE"
+ "POPUP"
+ "PRELOAD"
+ "PURE"
+ "PUSHBOX"
+ "PUSHBUTTON"
+ "RADIOBUTTON"
+ "RCDATA"
+ "RIGHTMARGIN"
+ "RTEXT"
+ "SCROLLBAR"
+ "SEPARATOR"
+ "STATE3"
+ "STRINGTABLE"
+ "STYLE"
+ "TEXTINCLUDE"
+ "TOOLBAR"
+ "TOPMARGIN"
+ "VERSIONINFO"
+ "VERSION")
+ ;; the choice of what tokens go where is somewhat arbitrary,
+ ;; as is the choice of which value tokens are included, as
+ ;; the choice of face for each token group
+ (eval-when-compile
+ (list
+ (generic-make-keywords-list
+ '("FILEFLAGSMASK"
"FILEFLAGS"
"FILEOS"
"FILESUBTYPE"
"FILETYPE"
"FILEVERSION"
- "PRODUCTVERSION"
- ) 'font-lock-type-face))
- (eval-when-compile
- (generic-make-keywords-list
- (list
- "BEGIN"
+ "PRODUCTVERSION")
+ font-lock-type-face)
+ (generic-make-keywords-list
+ '("BEGIN"
"BLOCK"
"END"
- "VALUE"
- ) 'font-lock-function-name-face))
- '("^#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" 1 font-lock-string-face)
- '("^#[ \t]*define[ \t]+\\(\\sw+\\)(" 1 font-lock-function-name-face)
- '("^#[ \t]*\\(elif\\|if\\)\\>"
- ("\\<\\(defined\\)\\>[ \t]*(?\\(\\sw+\\)?" nil nil
- (1 font-lock-constant-face) (2 font-lock-variable-name-face nil t)))
- '("^#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?"
- (1 font-lock-constant-face) (2 font-lock-variable-name-face nil t)))
- (list "\\.[rR][cC]$")
- nil
- "Generic mode for MS-Windows Resource files."))
+ "VALUE")
+ font-lock-function-name-face)
+ '("^#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" 1 font-lock-string-face)
+ '("^#[ \t]*define[ \t]+\\(\\sw+\\)(" 1 font-lock-function-name-face)
+ '("^#[ \t]*\\(elif\\|if\\)\\>"
+ ("\\<\\(defined\\)\\>[ \t]*(?\\(\\sw+\\)?" nil nil
+ (1 font-lock-constant-face)
+ (2 font-lock-variable-name-face nil t)))
+ '("^#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?"
+ (1 font-lock-constant-face)
+ (2 font-lock-variable-name-face nil t))))
+ '("\\.[rR][cC]\\'")
+ nil
+ "Generic mode for MS-Windows Resource files."))
;; InstallShield RUL files
;; Contributed by Alfred.Correira(a)Pervasive.Com
;; Bugfixes by "Rolf Sandau" <Rolf.Sandau(a)marconi.com>
-(and
-(memq 'rul-generic-mode generic-extras-enable-list)
+(when (memq 'rul-generic-mode generic-extras-enable-list)
+
+(eval-when-compile
+
;;; build the regexp strings using regexp-opt
-(defvar installshield-statement-keyword-list
- (list
- "abort"
- "begin"
- "call"
- "case"
- "declare"
- "default"
- "downto"
- "elseif"
- "else"
- "endfor"
- "endif"
- "endswitch"
- "endwhile"
- "end"
- "exit"
- "external"
- "for"
- "function"
- ;; "goto" -- handled elsewhere
- "if"
- "program"
- "prototype"
- "repeat"
- "return"
- "step"
- "switch"
- "then"
- "to"
- "typedef"
- "until"
- "void"
- "while"
- )
+(defconst installshield-statement-keyword-list
+ '("abort"
+ "begin"
+ "call"
+ "case"
+ "declare"
+ "default"
+ "downto"
+ "elseif"
+ "else"
+ "endfor"
+ "endif"
+ "endswitch"
+ "endwhile"
+ "end"
+ "exit"
+ "external"
+ "for"
+ "function"
+ ;; "goto" -- handled elsewhere
+ "if"
+ "program"
+ "prototype"
+ "repeat"
+ "return"
+ "step"
+ "switch"
+ "then"
+ "to"
+ "typedef"
+ "until"
+ "void"
+ "while")
"Statement keywords used in InstallShield 3 and 5.")
-(defvar installshield-system-functions-list
- (list
- "AddFolderIcon"
- "AddProfString"
- "AddressString"
- "AppCommand"
- "AskDestPath"
- "AskOptions"
- "AskPath"
- "AskText"
- "AskYesNo"
- "BatchDeleteEx"
- "BatchFileLoad"
- "BatchFileSave"
- "BatchFind"
- "BatchGetFileName"
- "BatchMoveEx"
- "BatchSetFileName"
- "ChangeDirectory"
- "CloseFile"
- "CmdGetHwndDlg"
- "ComponentAddItem" ; differs between IS3 and IS5
- "ComponentCompareSizeRequired" ; IS5 only
- "ComponentDialog"
- "ComponentError" ; IS5 only
- "ComponentFileEnum" ; IS5 only
- "ComponentFileInfo" ; IS5 only
- "ComponentFilterLanguage" ; IS5 only
- "ComponentFilterOS" ; IS5 only
- "ComponentGetData" ; IS5 only
- "ComponentGetItemInfo" ; IS3 only
- "ComponentGetItemSize" ; differs between IS3 and IS5
- "ComponentIsItemSelected" ; differs between IS3 and IS5
- "ComponentListItems"
- "ComponentMoveData" ; IS5 only
- "ComponentSelectItem" ; differs between IS3 and IS5
- "ComponentSetData" ; IS5 only
- "ComponentSetItemInfo" ; IS3 only
- "ComponentSetTarget" ; IS5 only
- "ComponentSetupTypeEnum" ; IS5 only
- "ComponentSetupTypeGetData" ; IS5 only
- "ComponentSetupTypeSet" ; IS5 only
- "ComponentTotalSize"
- "ComponentValidate" ; IS5 only
- "CompressAdd" ; IS3 only
- "CompressDel" ; IS3 only
- "CompressEnum" ; IS3 only
- "CompressGet" ; IS3 only
- "CompressInfo" ; IS3 only
- "CopyFile"
- "CreateDir"
- "CreateFile"
- "CreateProgramFolder"
- "DeinstallSetReference" ; IS5 only
- "DeinstallStart"
- "Delay"
- "DeleteDir"
- "DeleteFile"
- "DialogSetInfo"
- "Disable"
- "DoInstall"
- "Do"
- "Enable"
- "EnterDisk"
- "ExistsDir"
- "ExistsDisk"
- "ExitProgMan"
- "EzBatchAddPath"
- "EzBatchAddString"
- "EzBatchReplace"
- "EzConfigAddDriver"
- "EzConfigAddString"
- "EzConfigGetValue"
- "EzConfigSetValue"
- "EzDefineDialog"
- "FileCompare"
- "FileDeleteLine"
- "FileGrep"
- "FileInsertLine"
- "FileSetBeginDefine" ; IS3 only
- "FileSetEndDefine" ; IS3 only
- "FileSetPerformEz" ; IS3 only
- "FileSetPerform" ; IS3 only
- "FileSetReset" ; IS3 only
- "FileSetRoot" ; IS3 only
- "FindAllDirs"
- "FindAllFiles"
- "FindFile"
- "FindWindow"
- "GetDiskSpace"
- "GetDisk"
- "GetEnvVar"
- "GetExtents"
- "GetFileInfo"
- "GetLine"
- "GetProfInt"
- "GetProfString"
- "GetSystemInfo"
- "GetValidDrivesList"
- "GetVersion"
- "GetWindowHandle"
- "InstallationInfo"
- "Is"
- "LaunchApp"
- "LaunchAppAndWait"
- "ListAddItem"
- "ListAddString"
- "ListCount"
- "ListCreate"
- "ListDestroy"
- "ListFindItem"
- "ListFindString"
- "ListGetFirstItem"
- "ListGetFirstString"
- "ListGetNextItem"
- "ListGetNextString"
- "ListReadFromFile"
- "ListSetCurrentItem"
- "ListSetNextItem"
- "ListSetNextString"
- "ListSetIndex"
- "ListWriteToFile"
- "LongPathToQuote"
- "LongPathToShortPath"
- "MessageBox"
- "NumToStr"
- "OpenFileMode"
- "OpenFile"
- "ParsePath"
- "PathAdd"
- "PathDelete"
- "PathFind"
- "PathGet"
- "PathMove"
- "PathSet"
- "Path"
- "PlaceBitmap"
- "PlaceWindow"
- "PlayMMedia" ; IS5 only
- "ProgDefGroupType"
- "RegDBCreateKeyEx"
- "RegDBDeleteValue"
- "RegDBGetItem"
- "RegDBKeyExist"
- "RegDBSetItem"
- "RegDBGetKeyValueEx"
- "RegDBSetKeyValueEx"
- "RegDBSetDefaultRoot"
- "RenameFile"
- "ReplaceFolderIcon"
- "ReplaceProfString"
- "SdAskDestPath"
- "SdAskOptions"
- "SdAskOptionsList"
- "SdBitmap"
- "SdCloseDlg"
- "SdComponentAdvCheckSpace"
- "SdComponentAdvInit"
- "SdComponentAdvUpdateSpace"
- "SdComponentDialog"
- "SdComponentDialog2"
- "SdComponentDialogAdv"
- "SdComponentDialogEx"
- "SdComponentDlgCheckSpace"
- "SdComponentMult"
- "SdConfirmNewDir"
- "SdConfirmRegistration"
- "SdDiskSpace"
- "SdDisplayTopics"
- "SdDoStdButton"
- "SdEnablement"
- "SdError"
- "SdFinish"
- "SdFinishInit32"
- "SdFinishReboot"
- "SdGeneralInit"
- "SdGetItemName"
- "SdGetTextExtent"
- "SdGetUserCompanyInfo"
- "SdInit"
- "SdIsShellExplorer"
- "SdIsStdButton"
- "SdLicense"
- "SdMakeName"
- "SdOptionInit"
- "SdOptionSetState"
- "SdOptionsButtons"
- "SdOptionsButtonsInit"
- "SdPlugInProductName"
- "SdProductName"
- "SdRegEnableButton"
- "SdRegExEnableButton"
- "SdRegisterUser"
- "SdRegisterUserEx"
- "SdRemoveEndSpace"
- "SdSelectFolder"
- "SdSetSequentialItems"
- "SdSetStatic"
- "SdSetupTypeEx" ; IS5 only
- "SdSetupType"
- "SdShowAnyDialog"
- "SdShowDlgEdit1"
- "SdShowDlgEdit2"
- "SdShowDlgEdit3"
- "SdShowFileMods"
- "SdShowInfoList"
- "SdShowMsg"
- "SdStartCopy"
- "SdUnInit"
- "SdUpdateComponentSelection"
- "SdWelcome"
- "SendMessage"
- "SetColor"
- "SetFont"
- "SetDialogTitle"
- "SetDisplayEffect" ; IS5 only
- "SetFileInfo"
- "SetForegroundWindow"
- "SetStatusWindow"
- "SetTitle"
- "SetupType"
- "ShowProgramFolder"
- "Split" ; IS3 only
- "SprintfBox"
- "Sprintf"
- "StatusUpdate"
- "StrCompare"
- "StrFind"
- "StrGetTokens"
- "StrLength"
- "StrRemoveLastSlash"
- "StrToLower"
- "StrToNum"
- "StrToUpper"
- "StrSub"
- "VarRestore"
- "VarSave"
- "VerCompare"
- "VerGetFileVersion"
- "WaitOnDialog"
- "Welcome"
- "WriteLine"
- "WriteProfString"
- "XCopyFile"
- )
+(defconst installshield-system-functions-list
+ '("AddFolderIcon"
+ "AddProfString"
+ "AddressString"
+ "AppCommand"
+ "AskDestPath"
+ "AskOptions"
+ "AskPath"
+ "AskText"
+ "AskYesNo"
+ "BatchDeleteEx"
+ "BatchFileLoad"
+ "BatchFileSave"
+ "BatchFind"
+ "BatchGetFileName"
+ "BatchMoveEx"
+ "BatchSetFileName"
+ "ChangeDirectory"
+ "CloseFile"
+ "CmdGetHwndDlg"
+ "ComponentAddItem" ; differs between IS3 and IS5
+ "ComponentCompareSizeRequired" ; IS5 only
+ "ComponentDialog"
+ "ComponentError" ; IS5 only
+ "ComponentFileEnum" ; IS5 only
+ "ComponentFileInfo" ; IS5 only
+ "ComponentFilterLanguage" ; IS5 only
+ "ComponentFilterOS" ; IS5 only
+ "ComponentGetData" ; IS5 only
+ "ComponentGetItemInfo" ; IS3 only
+ "ComponentGetItemSize" ; differs between IS3 and IS5
+ "ComponentIsItemSelected" ; differs between IS3 and IS5
+ "ComponentListItems"
+ "ComponentMoveData" ; IS5 only
+ "ComponentSelectItem" ; differs between IS3 and IS5
+ "ComponentSetData" ; IS5 only
+ "ComponentSetItemInfo" ; IS3 only
+ "ComponentSetTarget" ; IS5 only
+ "ComponentSetupTypeEnum" ; IS5 only
+ "ComponentSetupTypeGetData" ; IS5 only
+ "ComponentSetupTypeSet" ; IS5 only
+ "ComponentTotalSize"
+ "ComponentValidate" ; IS5 only
+ "CompressAdd" ; IS3 only
+ "CompressDel" ; IS3 only
+ "CompressEnum" ; IS3 only
+ "CompressGet" ; IS3 only
+ "CompressInfo" ; IS3 only
+ "CopyFile"
+ "CreateDir"
+ "CreateFile"
+ "CreateProgramFolder"
+ "DeinstallSetReference" ; IS5 only
+ "DeinstallStart"
+ "Delay"
+ "DeleteDir"
+ "DeleteFile"
+ "DialogSetInfo"
+ "Disable"
+ "DoInstall"
+ "Do"
+ "Enable"
+ "EnterDisk"
+ "ExistsDir"
+ "ExistsDisk"
+ "ExitProgMan"
+ "EzBatchAddPath"
+ "EzBatchAddString"
+ "EzBatchReplace"
+ "EzConfigAddDriver"
+ "EzConfigAddString"
+ "EzConfigGetValue"
+ "EzConfigSetValue"
+ "EzDefineDialog"
+ "FileCompare"
+ "FileDeleteLine"
+ "FileGrep"
+ "FileInsertLine"
+ "FileSetBeginDefine" ; IS3 only
+ "FileSetEndDefine" ; IS3 only
+ "FileSetPerformEz" ; IS3 only
+ "FileSetPerform" ; IS3 only
+ "FileSetReset" ; IS3 only
+ "FileSetRoot" ; IS3 only
+ "FindAllDirs"
+ "FindAllFiles"
+ "FindFile"
+ "FindWindow"
+ "GetDiskSpace"
+ "GetDisk"
+ "GetEnvVar"
+ "GetExtents"
+ "GetFileInfo"
+ "GetLine"
+ "GetProfInt"
+ "GetProfString"
+ "GetSystemInfo"
+ "GetValidDrivesList"
+ "GetVersion"
+ "GetWindowHandle"
+ "InstallationInfo"
+ "Is"
+ "LaunchApp"
+ "LaunchAppAndWait"
+ "ListAddItem"
+ "ListAddString"
+ "ListCount"
+ "ListCreate"
+ "ListDestroy"
+ "ListFindItem"
+ "ListFindString"
+ "ListGetFirstItem"
+ "ListGetFirstString"
+ "ListGetNextItem"
+ "ListGetNextString"
+ "ListReadFromFile"
+ "ListSetCurrentItem"
+ "ListSetNextItem"
+ "ListSetNextString"
+ "ListSetIndex"
+ "ListWriteToFile"
+ "LongPathToQuote"
+ "LongPathToShortPath"
+ "MessageBox"
+ "NumToStr"
+ "OpenFileMode"
+ "OpenFile"
+ "ParsePath"
+ "PathAdd"
+ "PathDelete"
+ "PathFind"
+ "PathGet"
+ "PathMove"
+ "PathSet"
+ "Path"
+ "PlaceBitmap"
+ "PlaceWindow"
+ "PlayMMedia" ; IS5 only
+ "ProgDefGroupType"
+ "RegDBCreateKeyEx"
+ "RegDBDeleteValue"
+ "RegDBGetItem"
+ "RegDBKeyExist"
+ "RegDBSetItem"
+ "RegDBGetKeyValueEx"
+ "RegDBSetKeyValueEx"
+ "RegDBSetDefaultRoot"
+ "RenameFile"
+ "ReplaceFolderIcon"
+ "ReplaceProfString"
+ "SdAskDestPath"
+ "SdAskOptions"
+ "SdAskOptionsList"
+ "SdBitmap"
+ "SdCloseDlg"
+ "SdComponentAdvCheckSpace"
+ "SdComponentAdvInit"
+ "SdComponentAdvUpdateSpace"
+ "SdComponentDialog"
+ "SdComponentDialog2"
+ "SdComponentDialogAdv"
+ "SdComponentDialogEx"
+ "SdComponentDlgCheckSpace"
+ "SdComponentMult"
+ "SdConfirmNewDir"
+ "SdConfirmRegistration"
+ "SdDiskSpace"
+ "SdDisplayTopics"
+ "SdDoStdButton"
+ "SdEnablement"
+ "SdError"
+ "SdFinish"
+ "SdFinishInit32"
+ "SdFinishReboot"
+ "SdGeneralInit"
+ "SdGetItemName"
+ "SdGetTextExtent"
+ "SdGetUserCompanyInfo"
+ "SdInit"
+ "SdIsShellExplorer"
+ "SdIsStdButton"
+ "SdLicense"
+ "SdMakeName"
+ "SdOptionInit"
+ "SdOptionSetState"
+ "SdOptionsButtons"
+ "SdOptionsButtonsInit"
+ "SdPlugInProductName"
+ "SdProductName"
+ "SdRegEnableButton"
+ "SdRegExEnableButton"
+ "SdRegisterUser"
+ "SdRegisterUserEx"
+ "SdRemoveEndSpace"
+ "SdSelectFolder"
+ "SdSetSequentialItems"
+ "SdSetStatic"
+ "SdSetupTypeEx" ; IS5 only
+ "SdSetupType"
+ "SdShowAnyDialog"
+ "SdShowDlgEdit1"
+ "SdShowDlgEdit2"
+ "SdShowDlgEdit3"
+ "SdShowFileMods"
+ "SdShowInfoList"
+ "SdShowMsg"
+ "SdStartCopy"
+ "SdUnInit"
+ "SdUpdateComponentSelection"
+ "SdWelcome"
+ "SendMessage"
+ "SetColor"
+ "SetFont"
+ "SetDialogTitle"
+ "SetDisplayEffect" ; IS5 only
+ "SetFileInfo"
+ "SetForegroundWindow"
+ "SetStatusWindow"
+ "SetTitle"
+ "SetupType"
+ "ShowProgramFolder"
+ "Split" ; IS3 only
+ "SprintfBox"
+ "Sprintf"
+ "StatusUpdate"
+ "StrCompare"
+ "StrFind"
+ "StrGetTokens"
+ "StrLength"
+ "StrRemoveLastSlash"
+ "StrToLower"
+ "StrToNum"
+ "StrToUpper"
+ "StrSub"
+ "VarRestore"
+ "VarSave"
+ "VerCompare"
+ "VerGetFileVersion"
+ "WaitOnDialog"
+ "Welcome"
+ "WriteLine"
+ "WriteProfString"
+ "XCopyFile")
"System functions defined in InstallShield 3 and 5.")
-(defvar installshield-system-variables-list
- (list
- "BATCH_INSTALL"
- "CMDLINE"
- "COMMONFILES"
- "CORECOMPONENTHANDLING"
- "DIALOGCACHE"
- "ERRORFILENAME"
- "FOLDER_DESKTOP"
- "FOLDER_PROGRAMS"
- "FOLDER_STARTMENU"
- "FOLDER_STARTUP"
- "INFOFILENAME"
- "ISRES"
- "ISUSER"
- "ISVERSION"
- "MEDIA"
- "MODE"
- "PROGRAMFILES"
- "SELECTED_LANGUAGE"
- "SRCDIR"
- "SRCDISK"
- "SUPPORTDIR"
- "TARGETDIR"
- "TARGETDISK"
- "UNINST"
- "WINDIR"
- "WINDISK"
- "WINMAJOR"
- "WINSYSDIR"
- "WINSYSDISK"
- )
+(defconst installshield-system-variables-list
+ '("BATCH_INSTALL"
+ "CMDLINE"
+ "COMMONFILES"
+ "CORECOMPONENTHANDLING"
+ "DIALOGCACHE"
+ "ERRORFILENAME"
+ "FOLDER_DESKTOP"
+ "FOLDER_PROGRAMS"
+ "FOLDER_STARTMENU"
+ "FOLDER_STARTUP"
+ "INFOFILENAME"
+ "ISRES"
+ "ISUSER"
+ "ISVERSION"
+ "MEDIA"
+ "MODE"
+ "PROGRAMFILES"
+ "SELECTED_LANGUAGE"
+ "SRCDIR"
+ "SRCDISK"
+ "SUPPORTDIR"
+ "TARGETDIR"
+ "TARGETDISK"
+ "UNINST"
+ "WINDIR"
+ "WINDISK"
+ "WINMAJOR"
+ "WINSYSDIR"
+ "WINSYSDISK")
"System variables used in InstallShield 3 and 5.")
-(defvar installshield-types-list
- (list
- "BOOL"
- "BYREF"
- "CHAR"
- "HIWORD"
- "HWND"
- "INT"
- "LIST"
- "LONG"
- "LOWORD"
- "LPSTR"
- "NUMBER"
- "NUMBERLIST"
- "POINTER"
- "QUAD"
- "RGB"
- "SHORT"
- "STRINGLIST"
- "STRING"
- )
+(defconst installshield-types-list
+ '("BOOL"
+ "BYREF"
+ "CHAR"
+ "HIWORD"
+ "HWND"
+ "INT"
+ "LIST"
+ "LONG"
+ "LOWORD"
+ "LPSTR"
+ "NUMBER"
+ "NUMBERLIST"
+ "POINTER"
+ "QUAD"
+ "RGB"
+ "SHORT"
+ "STRINGLIST"
+ "STRING")
"Type keywords used in InstallShield 3 and 5.")
;;; some might want to skip highlighting these to improve performance
-(defvar installshield-funarg-constants-list
- (list
- "AFTER"
- "APPEND"
- "ALLCONTENTS"
- "BACKBUTTON"
- "BACKGROUNDCAPTION"
- "BACKGROUND"
- "BACK"
- "BASEMEMORY"
- "BEFORE"
- "BIOS"
- "BITMAPICON"
- "BK_BLUE"
- "BK_GREEN"
- "BK_RED"
- "BLUE"
- "BOOTUPDRIVE"
- "CANCEL"
- "CDROM_DRIVE"
- "CDROM"
- "CHECKBOX95"
- "CHECKBOX"
- "CHECKLINE"
- "CHECKMARK"
- "COLORS"
- "COMMANDEX"
- "COMMAND"
- "COMP_NORMAL"
- "COMP_UPDATE_DATE"
- "COMP_UPDATE_SAME"
- "COMP_UPDATE_VERSION"
- "COMPACT"
- "CONTINUE"
- "CPU"
- "CUSTOM"
- "DATE"
- "DEFWINDOWMODE"
- "DIR_WRITEABLE"
- "DIRECTORY"
- "DISABLE"
- "DISK_TOTALSPACE"
- "DISK"
- "DLG_OPTIONS"
- "DLG_PATH"
- "DLG_TEXT"
- "DLG_ASK_YESNO"
- "DLG_ENTER_DISK"
- "DLG_ERR"
- "DLG_INFO_ALTIMAGE"
- "DLG_INFO_CHECKSELECTION"
- "DLG_INFO_KUNITS"
- "DLG_INFO_USEDECIMAL"
- "DLG_MSG_INFORMATION"
- "DLG_MSG_SEVERE"
- "DLG_MSG_WARNING"
- "DLG_STATUS"
- "DLG_WARNING"
- "DLG_USER_CAPTION"
- "DRIVE"
- "ENABLE"
- "END_OF_FILE"
- "END_OF_LIST"
- "ENVSPACE"
- "EQUALS"
- "EXCLUDE_SUBDIR"
- "EXCLUSIVE"
- "EXISTS"
- "EXIT"
- "EXTENDED_MEMORY"
- "EXTENSION_ONLY"
- "FAILIFEXISTS"
- "FALSE"
- "FEEDBACK_FULL"
- "FILE_ATTR_ARCHIVED"
- "FILE_ATTR_DIRECTORY"
- "FILE_ATTR_HIDDEN"
- "FILE_ATTR_NORMAL"
- "FILE_ATTR_READONLY"
- "FILE_ATTR_SYSTEM"
- "FILE_ATTRIBUTE"
- "FILE_DATE"
- "FILE_LINE_LENGTH"
- "FILE_MODE_APPEND"
- "FILE_MODE_BINARYREADONLY"
- "FILE_MODE_BINARY"
- "FILE_MODE_NORMAL"
- "FILE_NO_VERSION"
- "FILE_NOT_FOUND"
- "FILE_SIZE"
- "FILE_TIME"
- "FILENAME_ONLY"
- "FILENAME"
- "FIXED_DRIVE"
- "FOLDER_DESKTOP"
- "FOLDER_PROGRAMS"
- "FOLDER_STARTMENU"
- "FOLDER_STARTUP"
- "FREEENVSPACE"
- "FULLWINDOWMODE"
- "FULL"
- "FONT_TITLE"
- "GREATER_THAN"
- "GREEN"
- "HKEY_CLASSES_ROOT"
- "HKEY_CURRENT_USER"
- "HKEY_LOCAL_MACHINE"
- "HKEY_USERS"
- "HOURGLASS"
- "INCLUDE_SUBDIR"
- "INDVFILESTATUS"
- "INFORMATION"
- "IS_WINDOWSNT"
- "IS_WINDOWS95"
- "IS_WINDOWS"
- "IS_WIN32S"
- "ISTYPE"
- "LANGUAGE_DRV"
- "LANGUAGE"
- "LESS_THAN"
- "LIST_NULL"
- "LISTFIRST"
- "LISTNEXT"
- "LOCKEDFILE"
- "LOGGING"
- "LOWER_LEFT"
- "LOWER_RIGHT"
- "MAGENTA"
- "MOUSE_DRV"
- "MOUSE"
- "NETWORK_DRV"
- "NETWORK"
- "NEXT"
- "NONEXCLUSIVE"
- "NORMALMODE"
- "NOSET"
- "NOTEXISTS"
- "NOWAIT"
- "NO"
- "OFF"
- "ONLYDIR"
- "ON"
- "OSMAJOR"
- "OSMINOR"
- "OS"
- "OTHER_FAILURE"
- "PARALLEL"
- "PARTIAL"
- "PATH_EXISTS"
- "PATH"
- "RED"
- "REGDB_APPPATH_DEFAULT"
- "REGDB_APPPATH"
- "REGDB_BINARY"
- "REGDB_ERR_CONNECTIONEXISTS"
- "REGDB_ERR_CORRUPTEDREGSITRY"
- "REGDB_ERR_INITIALIZATION"
- "REGDB_ERR_INVALIDHANDLE"
- "REGDB_ERR_INVALIDNAME"
- "REGDB_NUMBER"
- "REGDB_STRING_EXPAND"
- "REGDB_STRING_MULTI"
- "REGDB_STRING"
- "REGDB_UNINSTALL_NAME"
- "REMOTE_DRIVE"
- "REMOVALE_DRIVE"
- "REPLACE_ITEM"
- "REPLACE"
- "RESET"
- "RESTART"
- "ROOT"
- "SELFREGISTER"
- "SERIAL"
- "SET"
- "SEVERE"
- "SHAREDFILE"
- "SHARE"
- "SILENTMODE"
- "SRCTARGETDIR"
- "STATUSBAR"
- "STATUSDLG"
- "STATUSOLD"
- "STATUS"
- "STYLE_NORMAL"
- "SW_MAXIMIZE"
- "SW_MINIMIZE"
- "SW_RESTORE"
- "SW_SHOW"
- "SYS_BOOTMACHINE"
- "TIME"
- "TRUE"
- "TYPICAL"
- "UPPER_LEFT"
- "UPPER_RIGHT"
- "VALID_PATH"
- "VERSION"
- "VIDEO"
- "VOLUMELABEL"
- "YELLOW"
- "YES"
- "WAIT"
- "WARNING"
- "WINMAJOR"
- "WINMINOR"
- "WIN32SINSTALLED"
- "WIN32SMAJOR"
- "WIN32SMINOR"
- )
- "Function argument constants used in InstallShield 3 and 5.")
-
-(progn
- (defvar rul-generic-mode-syntax-table nil
- "Syntax table to use in `rul-generic-mode' buffers.")
-
- (setq rul-generic-mode-syntax-table
- (make-syntax-table c++-mode-syntax-table))
-
- (modify-syntax-entry ?\r "> b" rul-generic-mode-syntax-table)
- (modify-syntax-entry ?\n "> b" rul-generic-mode-syntax-table)
-
- (modify-syntax-entry ?/ ". 124b" rul-generic-mode-syntax-table)
- (modify-syntax-entry ?* ". 23" rul-generic-mode-syntax-table)
-
- ;; here manually instead
- (defun generic-rul-mode-setup-function ()
- (make-local-variable 'parse-sexp-ignore-comments)
- (make-local-variable 'comment-start)
- (make-local-variable 'comment-start-skip)
- (make-local-variable 'comment-end)
- (setq imenu-generic-expression
- '((nil "^function\\s-+\\([A-Za-z0-9_]+\\)" 1))
- parse-sexp-ignore-comments t
- comment-end "*/"
- comment-start "/*"
-;; comment-end ""
-;; comment-start "//"
-;; comment-start-skip ""
- )
-;; (set-syntax-table rul-generic-mode-syntax-table)
- (setq font-lock-syntax-table rul-generic-mode-syntax-table)
- )
-
- ;; moved mode-definition behind defun-definition to be warning-free - 15.11.02/RSan
- (define-generic-mode 'rul-generic-mode
- ;; Using "/*" and "*/" doesn't seem to be working right
- (list "//" '("/*" . "*/" ))
- installshield-statement-keyword-list
- (list
- ;; preprocessor constructs
- '("#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)"
- 1 font-lock-string-face)
- '("#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?"
- (1 font-lock-reference-face)
- (2 font-lock-variable-name-face nil t))
- ;; indirect string constants
- '("\\(＠[A-Za-z][A-Za-z0-9_]+\\)" 1 font-lock-builtin-face)
- ;; gotos
- '("[ \t]*\\(\\sw+:\\)" 1 font-lock-reference-face)
- '("\\<\\(goto\\)\\>[ \t]*\\(\\sw+\\)?"
- (1 font-lock-keyword-face)
- (2 font-lock-reference-face nil t))
- ;; system variables
- (generic-make-keywords-list
- installshield-system-variables-list
- 'font-lock-variable-name-face "[^_]" "[^_]")
- ;; system functions
- (generic-make-keywords-list
- installshield-system-functions-list
- 'font-lock-function-name-face "[^_]" "[^_]")
- ;; type keywords
- (generic-make-keywords-list
- installshield-types-list
- 'font-lock-type-face "[^_]" "[^_]")
- ;; function argument constants
- (generic-make-keywords-list
- installshield-funarg-constants-list
- 'font-lock-variable-name-face "[^_]" "[^_]") ; is this face the best choice?
- )
- (list "\\.[rR][uU][lL]$")
- (list 'generic-rul-mode-setup-function)
- "Generic mode for InstallShield RUL files.")
-)
+(defconst installshield-funarg-constants-list
+ '("AFTER"
+ "APPEND"
+ "ALLCONTENTS"
+ "BACKBUTTON"
+ "BACKGROUNDCAPTION"
+ "BACKGROUND"
+ "BACK"
+ "BASEMEMORY"
+ "BEFORE"
+ "BIOS"
+ "BITMAPICON"
+ "BK_BLUE"
+ "BK_GREEN"
+ "BK_RED"
+ "BLUE"
+ "BOOTUPDRIVE"
+ "CANCEL"
+ "CDROM_DRIVE"
+ "CDROM"
+ "CHECKBOX95"
+ "CHECKBOX"
+ "CHECKLINE"
+ "CHECKMARK"
+ "COLORS"
+ "COMMANDEX"
+ "COMMAND"
+ "COMP_NORMAL"
+ "COMP_UPDATE_DATE"
+ "COMP_UPDATE_SAME"
+ "COMP_UPDATE_VERSION"
+ "COMPACT"
+ "CONTINUE"
+ "CPU"
+ "CUSTOM"
+ "DATE"
+ "DEFWINDOWMODE"
+ "DIR_WRITEABLE"
+ "DIRECTORY"
+ "DISABLE"
+ "DISK_TOTALSPACE"
+ "DISK"
+ "DLG_OPTIONS"
+ "DLG_PATH"
+ "DLG_TEXT"
+ "DLG_ASK_YESNO"
+ "DLG_ENTER_DISK"
+ "DLG_ERR"
+ "DLG_INFO_ALTIMAGE"
+ "DLG_INFO_CHECKSELECTION"
+ "DLG_INFO_KUNITS"
+ "DLG_INFO_USEDECIMAL"
+ "DLG_MSG_INFORMATION"
+ "DLG_MSG_SEVERE"
+ "DLG_MSG_WARNING"
+ "DLG_STATUS"
+ "DLG_WARNING"
+ "DLG_USER_CAPTION"
+ "DRIVE"
+ "ENABLE"
+ "END_OF_FILE"
+ "END_OF_LIST"
+ "ENVSPACE"
+ "EQUALS"
+ "EXCLUDE_SUBDIR"
+ "EXCLUSIVE"
+ "EXISTS"
+ "EXIT"
+ "EXTENDED_MEMORY"
+ "EXTENSION_ONLY"
+ "FAILIFEXISTS"
+ "FALSE"
+ "FEEDBACK_FULL"
+ "FILE_ATTR_ARCHIVED"
+ "FILE_ATTR_DIRECTORY"
+ "FILE_ATTR_HIDDEN"
+ "FILE_ATTR_NORMAL"
+ "FILE_ATTR_READONLY"
+ "FILE_ATTR_SYSTEM"
+ "FILE_ATTRIBUTE"
+ "FILE_DATE"
+ "FILE_LINE_LENGTH"
+ "FILE_MODE_APPEND"
+ "FILE_MODE_BINARYREADONLY"
+ "FILE_MODE_BINARY"
+ "FILE_MODE_NORMAL"
+ "FILE_NO_VERSION"
+ "FILE_NOT_FOUND"
+ "FILE_SIZE"
+ "FILE_TIME"
+ "FILENAME_ONLY"
+ "FILENAME"
+ "FIXED_DRIVE"
+ "FOLDER_DESKTOP"
+ "FOLDER_PROGRAMS"
+ "FOLDER_STARTMENU"
+ "FOLDER_STARTUP"
+ "FREEENVSPACE"
+ "FULLWINDOWMODE"
+ "FULL"
+ "FONT_TITLE"
+ "GREATER_THAN"
+ "GREEN"
+ "HKEY_CLASSES_ROOT"
+ "HKEY_CURRENT_USER"
+ "HKEY_LOCAL_MACHINE"
+ "HKEY_USERS"
+ "HOURGLASS"
+ "INCLUDE_SUBDIR"
+ "INDVFILESTATUS"
+ "INFORMATION"
+ "IS_WINDOWSNT"
+ "IS_WINDOWS95"
+ "IS_WINDOWS"
+ "IS_WIN32S"
+ "ISTYPE"
+ "LANGUAGE_DRV"
+ "LANGUAGE"
+ "LESS_THAN"
+ "LIST_NULL"
+ "LISTFIRST"
+ "LISTNEXT"
+ "LOCKEDFILE"
+ "LOGGING"
+ "LOWER_LEFT"
+ "LOWER_RIGHT"
+ "MAGENTA"
+ "MOUSE_DRV"
+ "MOUSE"
+ "NETWORK_DRV"
+ "NETWORK"
+ "NEXT"
+ "NONEXCLUSIVE"
+ "NORMALMODE"
+ "NOSET"
+ "NOTEXISTS"
+ "NOWAIT"
+ "NO"
+ "OFF"
+ "ONLYDIR"
+ "ON"
+ "OSMAJOR"
+ "OSMINOR"
+ "OS"
+ "OTHER_FAILURE"
+ "PARALLEL"
+ "PARTIAL"
+ "PATH_EXISTS"
+ "PATH"
+ "RED"
+ "REGDB_APPPATH_DEFAULT"
+ "REGDB_APPPATH"
+ "REGDB_BINARY"
+ "REGDB_ERR_CONNECTIONEXISTS"
+ "REGDB_ERR_CORRUPTEDREGSITRY"
+ "REGDB_ERR_INITIALIZATION"
+ "REGDB_ERR_INVALIDHANDLE"
+ "REGDB_ERR_INVALIDNAME"
+ "REGDB_NUMBER"
+ "REGDB_STRING_EXPAND"
+ "REGDB_STRING_MULTI"
+ "REGDB_STRING"
+ "REGDB_UNINSTALL_NAME"
+ "REMOTE_DRIVE"
+ "REMOVALE_DRIVE"
+ "REPLACE_ITEM"
+ "REPLACE"
+ "RESET"
+ "RESTART"
+ "ROOT"
+ "SELFREGISTER"
+ "SERIAL"
+ "SET"
+ "SEVERE"
+ "SHAREDFILE"
+ "SHARE"
+ "SILENTMODE"
+ "SRCTARGETDIR"
+ "STATUSBAR"
+ "STATUSDLG"
+ "STATUSOLD"
+ "STATUS"
+ "STYLE_NORMAL"
+ "SW_MAXIMIZE"
+ "SW_MINIMIZE"
+ "SW_RESTORE"
+ "SW_SHOW"
+ "SYS_BOOTMACHINE"
+ "TIME"
+ "TRUE"
+ "TYPICAL"
+ "UPPER_LEFT"
+ "UPPER_RIGHT"
+ "VALID_PATH"
+ "VERSION"
+ "VIDEO"
+ "VOLUMELABEL"
+ "YELLOW"
+ "YES"
+ "WAIT"
+ "WARNING"
+ "WINMAJOR"
+ "WINMINOR"
+ "WIN32SINSTALLED"
+ "WIN32SMAJOR"
+ "WIN32SMINOR")
+ "Function argument constants used in InstallShield 3 and 5."))
+
+(defvar rul-generic-mode-syntax-table nil
+ "Syntax table to use in `rul-generic-mode' buffers.")
+
+(setq rul-generic-mode-syntax-table
+ (make-syntax-table c++-mode-syntax-table))
+
+(modify-syntax-entry ?\r "> b" rul-generic-mode-syntax-table)
+(modify-syntax-entry ?\n "> b" rul-generic-mode-syntax-table)
+
+(modify-syntax-entry ?/ ". 124b" rul-generic-mode-syntax-table)
+(modify-syntax-entry ?* ". 23" rul-generic-mode-syntax-table)
+
+;; here manually instead
+(defun generic-rul-mode-setup-function ()
+ (make-local-variable 'parse-sexp-ignore-comments)
+ (make-local-variable 'comment-start)
+ (make-local-variable 'comment-start-skip)
+ (make-local-variable 'comment-end)
+ (setq imenu-generic-expression
+ '((nil "^function\\s-+\\([A-Za-z0-9_]+\\)" 1))
+ parse-sexp-ignore-comments t
+ comment-end "*/"
+ comment-start "/*"
+;;; comment-end ""
+;;; comment-start "//"
+;;; comment-start-skip ""
+ )
+ ;; (set-syntax-table rul-generic-mode-syntax-table)
+ (setq font-lock-syntax-table rul-generic-mode-syntax-table))
+
+;; moved mode-definition behind defun-definition to be warning-free - 15.11.02/RSan
+(define-generic-mode rul-generic-mode
+ ;; Using "/*" and "*/" doesn't seem to be working right
+ '("//" ("/*" . "*/" ))
+ (eval-when-compile installshield-statement-keyword-list)
+ (eval-when-compile
+ (list
+ ;; preprocessor constructs
+ '("#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)"
+ 1 font-lock-string-face)
+ '("#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?"
+ (1 font-lock-reference-face)
+ (2 font-lock-variable-name-face nil t))
+ ;; indirect string constants
+ '("\\(＠[A-Za-z][A-Za-z0-9_]+\\)" 1 font-lock-builtin-face)
+ ;; gotos
+ '("[ \t]*\\(\\sw+:\\)" 1 font-lock-reference-face)
+ '("\\<\\(goto\\)\\>[ \t]*\\(\\sw+\\)?"
+ (1 font-lock-keyword-face)
+ (2 font-lock-reference-face nil t))
+ ;; system variables
+ (generic-make-keywords-list
+ installshield-system-variables-list
+ font-lock-variable-name-face "[^_]" "[^_]")
+ ;; system functions
+ (generic-make-keywords-list
+ installshield-system-functions-list
+ font-lock-function-name-face "[^_]" "[^_]")
+ ;; type keywords
+ (generic-make-keywords-list
+ installshield-types-list
+ font-lock-type-face "[^_]" "[^_]")
+ ;; function argument constants
+ (generic-make-keywords-list
+ installshield-funarg-constants-list
+ font-lock-variable-name-face "[^_]" "[^_]"))) ; is this face the best choice?
+ '("\\.[rR][uU][lL]\\'")
+ '(generic-rul-mode-setup-function)
+ "Generic mode for InstallShield RUL files.")
+
(define-skeleton rul-if
- "Insert an if statement."
- "condition: "
- "if(" str ") then" \n
- > _ \n
- ( "other condition, %s: "
- > "elseif(" str ") then" \n
- > \n)
- > "else" \n
- > \n
- resume:
- > "endif;"
- )
+ "Insert an if statement."
+ "condition: "
+ "if(" str ") then" \n
+ > _ \n
+ ( "other condition, %s: "
+ > "elseif(" str ") then" \n
+ > \n)
+ > "else" \n
+ > \n
+ resume:
+ > "endif;")
(define-skeleton rul-function
"Insert a function statement."
"function: "
"function " str " ()" \n
( "local variables, %s: "
- > " " str ";" \n)
+ > " " str ";" \n)
> "begin" \n
> _ \n
resume:
- > "end;")
-
-)
+ > "end;"))
;; Additions by ACorreir(a)pervasive-sw.com (Alfred Correira)
-(define-generic-mode 'mailrc-generic-mode
- (list ?#)
- (list
- "alias"
- "else"
- "endif"
- "group"
- "if"
- "ignore"
- "set"
- "source"
- "unset"
- )
+(when (memq 'mailrc-generic-mode generic-extras-enable-list)
+
+(define-generic-mode mailrc-generic-mode
+ '(?#)
+ '("alias"
+ "else"
+ "endif"
+ "group"
+ "if"
+ "ignore"
+ "set"
+ "source"
+ "unset")
'(("^\\s-*\\(alias\\|group\\)\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$"
- (2 font-lock-constant-face) (3 font-lock-variable-name-face))
+ (2 font-lock-constant-face)
+ (3 font-lock-variable-name-face))
("^\\s-*\\(unset\\|set\\|ignore\\)\\s-+\\([-A-Za-z0-9_]+\\)=?\\([^\n\r#]*\\)\\(#.*\\)?$"
- (2 font-lock-constant-face) (3 font-lock-variable-name-face))
+ (2 font-lock-constant-face)
+ (3 font-lock-variable-name-face))
("^\\s-*\\(source\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$"
(2 font-lock-variable-name-face)))
- (list "\\.mailrc\\'")
+ '("\\.mailrc\\'")
nil
- "Generic mode for mailrc files.")
+ "Mode for mailrc files."))
;; Inetd.conf
-(and
- (memq 'inetd-conf-generic-mode generic-extras-enable-list)
+(when (memq 'inetd-conf-generic-mode generic-extras-enable-list)
-(define-generic-mode 'inetd-conf-generic-mode
- (list ?#)
- (list
- "stream"
- "dgram"
- "tcp"
- "udp"
- "wait"
- "nowait"
- "internal"
- )
- '(
- ("^\\([-A-Za-z0-9_]+\\)"
- 1 'font-lock-type-face)
- )
+(define-generic-mode inetd-conf-generic-mode
+ '(?#)
+ '("stream"
+ "dgram"
+ "tcp"
+ "udp"
+ "wait"
+ "nowait"
+ "internal")
+ '(("^\\([-A-Za-z0-9_]+\\)" 1 font-lock-type-face))
'("/etc/inetd.conf\\'")
(list
(function
(lambda ()
(setq imenu-generic-expression
- '((nil "^\\([-A-Za-z0-9_]+\\)" 1)))
- )))
- )
-)
+ '((nil "^\\([-A-Za-z0-9_]+\\)" 1))))))))
;; Services
-(and
- (memq 'etc-services-generic-mode generic-extras-enable-list)
+(when (memq 'etc-services-generic-mode generic-extras-enable-list)
-(define-generic-mode 'etc-services-generic-mode
- (list ?#)
- (list
- "tcp"
- "udp"
- "ddp"
- )
- '(
- ("^\\([-A-Za-z0-9_]+\\)\\s-+\\([0-9]+\\)/"
- (1 'font-lock-type-face)
- (2 'font-lock-variable-name-face)
- )
- )
+(define-generic-mode etc-services-generic-mode
+ '(?#)
+ '("tcp"
+ "udp"
+ "ddp")
+ '(("^\\([-A-Za-z0-9_]+\\)\\s-+\\([0-9]+\\)/"
+ (1 font-lock-type-face)
+ (2 font-lock-variable-name-face)))
'("/etc/services\\'")
(list
(function
(lambda ()
(setq imenu-generic-expression
- '((nil "^\\([-A-Za-z0-9_]+\\)" 1)))
- )))
- )
-)
+ '((nil "^\\([-A-Za-z0-9_]+\\)" 1))))))))
;; Password and Group files
-(and
- (memq 'etc-passwd-generic-mode generic-extras-enable-list)
+(when (memq 'etc-passwd-generic-mode generic-extras-enable-list)
-(define-generic-mode 'etc-passwd-generic-mode
+(define-generic-mode etc-passwd-generic-mode
nil ;; No comment characters
- (list "root") ;; Only one keyword
- (list
+ '("root") ;; Only one keyword
+ (eval-when-compile
(list
- (concat
- "^"
- ;; User name -- Never blank!
- "\\([^:]+\\)"
- ":"
- ;; Password, UID and GID
- (mapconcat
- 'identity
- (make-list 3 "\\([^:]+\\)")
+ (list
+ (concat
+ "^"
+ ;; User name -- Never blank!
+ "\\([^:]+\\)"
":"
- )
- ":"
- ;; GECOS/Name -- might be blank
- "\\([^:]*\\)"
- ":"
- ;; Home directory and shell
- "\\([^:]+\\)"
- ":?"
- "\\([^:]*\\)"
- "$"
- )
- '(1 'font-lock-type-face)
- '(5 'font-lock-variable-name-face)
- '(6 'font-lock-constant-face)
- '(7 'font-lock-warning-face)
- )
- '("^\\([^:]+\\):\\([^:]*\\):\\([0-9]+\\):\\(.*\\)$"
- (1 'font-lock-type-face)
- (4 'font-lock-variable-name-face)
- )
- )
+ ;; Password, UID and GID
+ (mapconcat
+ 'identity
+ (make-list 3 "\\([^:]+\\)")
+ ":")
+ ":"
+ ;; GECOS/Name -- might be blank
+ "\\([^:]*\\)"
+ ":"
+ ;; Home directory and shell
+ "\\([^:]+\\)"
+ ":?"
+ "\\([^:]*\\)"
+ "$")
+ '(1 font-lock-type-face)
+ '(5 font-lock-variable-name-face)
+ '(6 font-lock-constant-face)
+ '(7 font-lock-warning-face))
+ '("^\\([^:]+\\):\\([^:]*\\):\\([0-9]+\\):\\(.*\\)$"
+ (1 font-lock-type-face)
+ (4 font-lock-variable-name-face))))
'("/etc/passwd\\'" "/etc/group\\'")
(list
(function
(lambda ()
(setq imenu-generic-expression
- '((nil "^\\([-A-Za-z0-9_]+\\):" 1)))
- )))
- )
-)
+ '((nil "^\\([-A-Za-z0-9_]+\\):" 1))))))))
;; Fstab
-(and
- (memq 'etc-fstab-generic-mode generic-extras-enable-list)
+(when (memq 'etc-fstab-generic-mode generic-extras-enable-list)
-(define-generic-mode 'etc-fstab-generic-mode
- (list ?#)
- (list
- "ext2"
- "fd"
- "iso9660"
- "nfs"
- "proc"
- "swap"
- "ufs"
- )
- '(
- ("^\\([/-A-Za-z0-9_]+\\)\\s-+\\([/-A-Za-z0-9_]+\\)"
- (1 'font-lock-type-face)
- (2 'font-lock-variable-name-face)
- )
- )
+(define-generic-mode etc-fstab-generic-mode
+ '(?#)
+ '("adfs"
+ "affs"
+ "autofs"
+ "coda"
+ "coherent"
+ "cramfs"
+ "devpts"
+ "efs"
+ "ext2"
+ "ext3"
+ "hfs"
+ "hpfs"
+ "iso9660"
+ "jfs"
+ "minix"
+ "msdos"
+ "ncpfs"
+ "nfs"
+ "ntfs"
+ "proc"
+ "qnx4"
+ "reiserfs"
+ "romfs"
+ "smbfs"
+ "sysv"
+ "tmpfs"
+ "udf"
+ "ufs"
+ "umsdos"
+ "vfat"
+ "xenix"
+ "xfs"
+ "swap"
+ "auto"
+ "ignore")
+ '(("^\\([/-A-Za-z0-9_]+\\)\\s-+\\([/-A-Za-z0-9_]+\\)"
+ (1 font-lock-type-face t)
+ (2 font-lock-variable-name-face t)))
'("/etc/[v]*fstab\\'")
(list
(function
(lambda ()
(setq imenu-generic-expression
- '((nil "^\\([/-A-Za-z0-9_]+\\)\\s-+" 1)))
- )))
- )
-)
+ '((nil "^\\([/-A-Za-z0-9_]+\\)\\s-+" 1))))))))
;; From Jacques Duthen <jacques.duthen(a)sncf.fr>
-(defvar show-tabs-generic-mode-font-lock-defaults-1
- '( ;; trailing spaces must come before...
- ("[ \t]+$" . 'show-tabs-space-face)
- ;; ...embedded tabs
- ("[^\n\t]\\(\t+\\)" (1 'show-tabs-tab-face))))
-
-(defvar show-tabs-generic-mode-font-lock-defaults-2
- '( ;; trailing spaces must come before...
- ("[ \t]+$" . 'show-tabs-space-face)
- ;; ...tabs
- ("\t+" . 'show-tabs-tab-face)))
+(when (memq 'show-tabs-generic-mode generic-extras-enable-list)
+
+(eval-when-compile
-(defface show-tabs-tab-face
+(defconst show-tabs-generic-mode-font-lock-defaults-1
+ '(;; trailing spaces must come before...
+ ("[ \t]+$" . 'show-tabs-space)
+ ;; ...embedded tabs
+ ("[^\n\t]\\(\t+\\)" (1 'show-tabs-tab))))
+
+(defconst show-tabs-generic-mode-font-lock-defaults-2
+ '(;; trailing spaces must come before...
+ ("[ \t]+$" . 'show-tabs-space)
+ ;; ...tabs
+ ("\t+" . 'show-tabs-tab))))
+
+(defface show-tabs-tab
;; XEmacs change: s/:weight bold/:bold t/
- '((((class grayscale) (background light)) (:foreground "LightGray" :bold t))
- (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
- (((class color) (background light)) (:foreground "red"))
- (((class color) (background dark)) (:foreground "red"))
+ '((((class grayscale) (background light)) (:background "DimGray" :bold t))
+ (((class grayscale) (background dark)) (:background "LightGray" :bold t))
+ (((class color) (min-colors 88)) (:background "red1"))
+ (((class color)) (:background "red"))
(t (:bold t)))
"Font Lock mode face used to highlight TABs."
- :group 'show-tabs)
+ :group 'generic-x)
+;; backward-compatibility alias
+(put 'show-tabs-tab-face 'face-alias 'show-tabs-tab)
-(defface show-tabs-space-face
+(defface show-tabs-space
;; XEmacs change: s/:weight bold/:bold t/
- '((((class grayscale) (background light)) (:foreground "LightGray" :bold t))
- (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))
- (((class color) (background light)) (:foreground "yellow"))
- (((class color) (background dark)) (:foreground "yellow"))
+ '((((class grayscale) (background light)) (:background "DimGray" :bold t))
+ (((class grayscale) (background dark)) (:background "LightGray" :bold t))
+ (((class color) (min-colors 88)) (:background "yellow1"))
+ (((class color)) (:background "yellow"))
(t (:bold t)))
"Font Lock mode face used to highlight spaces."
- :group 'show-tabs)
-
-(define-generic-mode 'show-tabs-generic-mode
- () ;; no comment char
- () ;; no keywords
- show-tabs-generic-mode-font-lock-defaults-1
- () ;; no auto-mode-alist
- ;; (list 'show-tabs-generic-mode-hook-fun)
+ :group 'generic-x)
+;; backward-compatibility alias
+(put 'show-tabs-space-face 'face-alias 'show-tabs-space)
+
+(define-generic-mode show-tabs-generic-mode
+ nil ;; no comment char
+ nil ;; no keywords
+ (eval-when-compile show-tabs-generic-mode-font-lock-defaults-1)
+ nil ;; no auto-mode-alist
+ ;; '(show-tabs-generic-mode-hook-fun)
nil
- "Generic mode to show tabs and trailing spaces.")
+ "Generic mode to show tabs and trailing spaces"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; DNS modes
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(define-generic-mode 'named-boot-generic-mode
- ;;List of comment characters
- (list ?\;)
- ;;List of keywords
- (list "cache" "primary" "secondary" "forwarders" "limit" "options"
- "directory" "check-names")
- ;;List of additional font-lock-expressions
- (list
- (list "\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 'font-lock-constant-face)
- (list "^directory\\s-+\\(.*\\)" 1 'font-lock-variable-name-face)
- (list "^\\(primary\\|cache\\)\\s-+\\([.A-Za-z]+\\)\\s-+\\(.*\\)"
- (list 2 'font-lock-variable-name-face)
- (list 3 'font-lock-constant-face))
- )
- ;;List of additional automode-alist expressions
- (list "/etc/named.boot\\'")
- ;;List of set up functions to call
- nil
- )
-
-(define-generic-mode 'named-database-generic-mode
- ;;List of comment characters
- (list ?\;)
- ;;List of keywords
- (list "IN" "NS" "CNAME" "SOA" "PTR" "MX" "A")
- ;;List of additional font-lock-expressions
- (list
- (list "\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 'font-lock-constant-face)
- (list "^\\([.A-Za-z0-9]+\\)" 1 'font-lock-variable-name-face)
- )
- ;;List of additional automode-alist expressions
- nil
- ;;List of set up functions to call
+(when (memq 'named-boot-generic-mode generic-extras-enable-list)
+
+(define-generic-mode named-boot-generic-mode
+ ;; List of comment characters
+ '(?\;)
+ ;; List of keywords
+ '("cache" "primary" "secondary" "forwarders" "limit" "options"
+ "directory" "check-names")
+ ;; List of additional font-lock-expressions
+ '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 font-lock-constant-face)
+ ("^directory\\s-+\\(.*\\)" 1 font-lock-variable-name-face)
+ ("^\\(primary\\|cache\\)\\s-+\\([.A-Za-z]+\\)\\s-+\\(.*\\)"
+ (2 font-lock-variable-name-face)
+ (3 font-lock-constant-face)))
+ ;; List of additional automode-alist expressions
+ '("/etc/named.boot\\'")
+ ;; List of set up functions to call
+ nil))
+
+(when (memq 'named-database-generic-mode generic-extras-enable-list)
+
+(define-generic-mode named-database-generic-mode
+ ;; List of comment characters
+ '(?\;)
+ ;; List of keywords
+ '("IN" "NS" "CNAME" "SOA" "PTR" "MX" "A")
+ ;; List of additional font-lock-expressions
+ '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 font-lock-constant-face)
+ ("^\\([.A-Za-z0-9]+\\)" 1 font-lock-variable-name-face))
+ ;; List of additional auto-mode-alist expressions
nil
- )
+ ;; List of set up functions to call
+ nil)
(defvar named-database-time-string "%Y%m%d%H"
- "Time string for named serial numbers.")
+ "Timestring for named serial numbers.")
(defun named-database-print-serial ()
"Print a serial number based on the current date."
(interactive)
- (insert (format-time-string named-database-time-string (current-time)))
- )
+ (insert (format-time-string named-database-time-string (current-time)))))
+
+(when (memq 'resolve-conf-generic-mode generic-extras-enable-list)
-(define-generic-mode 'resolve-conf-generic-mode
- ;;List of comment characters
- (list ?#)
- ;;List of keywords
- (list "nameserver" "domain" "search" "sortlist" "options")
- ;;List of additional font-lock-expressions
- nil
- ;;List of additional automode-alist expressions
- (list "/etc/resolv[e]?.conf\\'")
- ;;List of set up functions to call
+(define-generic-mode resolve-conf-generic-mode
+ ;; List of comment characters
+ '(?#)
+ ;; List of keywords
+ '("nameserver" "domain" "search" "sortlist" "options")
+ ;; List of additional font-lock-expressions
nil
- )
+ ;; List of additional auto-mode-alist expressions
+ '("/etc/resolv[e]?.conf\\'")
+ ;; List of set up functions to call
+ nil))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Modes for spice and common electrical engineering circuit netlist formats
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(define-generic-mode 'spice-generic-mode
+(when (memq 'spice-generic-mode generic-extras-enable-list)
+
+(define-generic-mode spice-generic-mode
nil
- (list
- "and"
- "cccs"
- "ccvs"
- "delay"
- "nand"
- "nor"
- "npwl"
- "or"
- "par"
- "ppwl"
- "pwl"
- "vccap"
- "vccs"
- "vcr"
- "vcvs"
- )
- '(
- ("^\\s-*\\([*].*\\)" 1 'font-lock-comment-face)
- (" \\(\\$ .*\\)$" 1 'font-lock-comment-face)
- ("^\\(\\$ .*\\)$" 1 'font-lock-comment-face)
- ("\\([*].*\\)" 1 'font-lock-comment-face)
- ("^\\([+]\\)" 1 'font-lock-string-face)
- ("^\\s-*\\([.]\\w+\\>\\)" 1 'font-lock-keyword-face)
- ("\\(\\([.]\\|_\\|\\w\\)+\\)\\s-*=" 1 'font-lock-variable-name-face)
- ("\\('[^']+'\\)" 1 'font-lock-string-face)
- ("\\(\"[^\"]+\"\\)" 1 'font-lock-string-face)
- )
- (list "\\.[sS][pP]\\'"
- "\\.[sS][pP][iI]\\'"
- "\\.[sS][pP][iI][cC][eE]\\'"
- "\\.[iI][nN][cC]\\'")
+ '("and"
+ "cccs"
+ "ccvs"
+ "delay"
+ "nand"
+ "nor"
+ "npwl"
+ "or"
+ "par"
+ "ppwl"
+ "pwl"
+ "vccap"
+ "vccs"
+ "vcr"
+ "vcvs")
+ '(("^\\s-*\\([*].*\\)" 1 font-lock-comment-face)
+ (" \\(\\$ .*\\)$" 1 font-lock-comment-face)
+ ("^\\(\\$ .*\\)$" 1 font-lock-comment-face)
+ ("\\([*].*\\)" 1 font-lock-comment-face)
+ ("^\\([+]\\)" 1 font-lock-string-face)
+ ("^\\s-*\\([.]\\w+\\>\\)" 1 font-lock-keyword-face)
+ ("\\(\\([.]\\|_\\|\\w\\)+\\)\\s-*=" 1 font-lock-variable-name-face)
+ ("\\('[^']+'\\)" 1 font-lock-string-face)
+ ("\\(\"[^\"]+\"\\)" 1 font-lock-string-face))
+ '("\\.[sS][pP]\\'"
+ "\\.[sS][pP][iI]\\'"
+ "\\.[sS][pP][iI][cC][eE]\\'"
+ "\\.[iI][nN][cC]\\'")
(list
'generic-bracket-support
;; Make keywords case-insensitive
(function
(lambda()
- (setq font-lock-defaults (list 'generic-font-lock-defaults nil t))))
- )
- "Generic mode for SPICE circuit netlist files."
- )
-
-(define-generic-mode 'ibis-generic-mode
- (list ?|)
- nil
- '(
- ("[[]\\([^]]*\\)[]]" 1 'font-lock-keyword-face)
- ("\\(\\(_\\|\\w\\)+\\)\\s-*=" 1 'font-lock-variable-name-face)
- )
- (list "\\.[iI][bB][sS]\\'")
- (list 'generic-bracket-support)
- "Generic mode for IBIS circuit netlist files."
- )
+ (setq font-lock-defaults '(generic-font-lock-keywords nil t)))))
+ "Generic mode for SPICE circuit netlist files."))
-(define-generic-mode 'astap-generic-mode
+(when (memq 'ibis-generic-mode generic-extras-enable-list)
+
+(define-generic-mode ibis-generic-mode
+ '(?|)
nil
- (list
- "analyze"
- "description"
- "elements"
- "execution"
- "features"
- "functions"
- "ground"
- "model"
- "outputs"
- "print"
- "run"
- "controls"
- "table"
- )
- '(
- ("^\\s-*\\([*].*\\)" 1 'font-lock-comment-face)
- (";\\s-*\\([*].*\\)" 1 'font-lock-comment-face)
- ("^\\s-*\\([.]\\w+\\>\\)" 1 'font-lock-keyword-face)
- ("\\('[^']+'\\)" 1 'font-lock-string-face)
- ("\\(\"[^\"]+\"\\)" 1 'font-lock-string-face)
- ("[(,]\\s-*\\(\\([.]\\|_\\|\\w\\)+\\)\\s-*=" 1 'font-lock-variable-name-face)
- )
- (list "\\.[aA][pP]\\'"
- "\\.[aA][sS][xX]\\'"
- "\\.[aA][sS][tT][aA][pP]\\'"
- "\\.[pP][sS][pP]\\'"
- "\\.[dD][eE][cC][kK]\\'"
- "\\.[gG][oO][dD][aA][tT][aA]")
+ '(("[[]\\([^]]*\\)[]]" 1 font-lock-keyword-face)
+ ("\\(\\(_\\|\\w\\)+\\)\\s-*=" 1 font-lock-variable-name-face))
+ '("\\.[iI][bB][sS]\\'")
+ '(generic-bracket-support)
+ "Generic mode for IBIS circuit netlist files."))
+
+(when (memq 'astap-generic-mode generic-extras-enable-list)
+
+(define-generic-mode astap-generic-mode
+ nil
+ '("analyze"
+ "description"
+ "elements"
+ "execution"
+ "features"
+ "functions"
+ "ground"
+ "model"
+ "outputs"
+ "print"
+ "run"
+ "controls"
+ "table")
+ '(("^\\s-*\\([*].*\\)" 1 font-lock-comment-face)
+ (";\\s-*\\([*].*\\)" 1 font-lock-comment-face)
+ ("^\\s-*\\([.]\\w+\\>\\)" 1 font-lock-keyword-face)
+ ("\\('[^']+'\\)" 1 font-lock-string-face)
+ ("\\(\"[^\"]+\"\\)" 1 font-lock-string-face)
+ ("[(,]\\s-*\\(\\([.]\\|_\\|\\w\\)+\\)\\s-*=" 1 font-lock-variable-name-face))
+ '("\\.[aA][pP]\\'"
+ "\\.[aA][sS][xX]\\'"
+ "\\.[aA][sS][tT][aA][pP]\\'"
+ "\\.[pP][sS][pP]\\'"
+ "\\.[dD][eE][cC][kK]\\'"
+ "\\.[gG][oO][dD][aA][tT][aA]")
(list
'generic-bracket-support
;; Make keywords case-insensitive
(function
(lambda()
- (setq font-lock-defaults (list 'generic-font-lock-defaults nil t))))
- )
- "Generic mode for ASTAP circuit netlist files."
- )
-
-(define-generic-mode 'etc-modules-conf-generic-mode
- ;;List of comment characters
- (list ?#)
- ;;List of keywords
- (list
- "above"
- "alias"
- "below"
- "define"
- "depfile"
- "else"
- "elseif"
- "endif"
- "if"
- "include"
- "insmod_opt"
- "install"
- "keep"
- "options"
- "path"
- "generic_stringfile"
- "pcimapfile"
- "isapnpmapfile"
- "usbmapfile"
- "parportmapfile"
- "ieee1394mapfile"
- "pnpbiosmapfile"
- "probe"
- "probeall"
- "prune"
- "post-install"
- "post-remove"
- "pre-install"
- "pre-remove"
- "remove"
- "persistdir")
- ;;List of additional font-lock-expressions
- nil
- ;;List of additional automode-alist expressions
- (list "/etc/modules.conf" "/etc/conf.modules")
- ;;List of set up functions to call
+ (setq font-lock-defaults '(generic-font-lock-keywords nil t)))))
+ "Generic mode for ASTAP circuit netlist files."))
+
+(when (memq 'etc-modules-conf-generic-mode generic-extras-enable-list)
+
+(define-generic-mode etc-modules-conf-generic-mode
+ ;; List of comment characters
+ '(?#)
+ ;; List of keywords
+ '("above"
+ "alias"
+ "below"
+ "define"
+ "depfile"
+ "else"
+ "elseif"
+ "endif"
+ "if"
+ "include"
+ "insmod_opt"
+ "install"
+ "keep"
+ "options"
+ "path"
+ "generic_stringfile"
+ "pcimapfile"
+ "isapnpmapfile"
+ "usbmapfile"
+ "parportmapfile"
+ "ieee1394mapfile"
+ "pnpbiosmapfile"
+ "probe"
+ "probeall"
+ "prune"
+ "post-install"
+ "post-remove"
+ "pre-install"
+ "pre-remove"
+ "remove"
+ "persistdir")
+ ;; List of additional font-lock-expressions
nil
- )
+ ;; List of additional automode-alist expressions
+ '("/etc/modules.conf" "/etc/conf.modules")
+ ;; List of set up functions to call
+ nil))
(provide 'generic-x)
1.8 +156 -255 XEmacs/packages/unsupported/scop/generic-modes/generic.el
Index: generic.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/generic-modes/generic.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- generic.el 2005/03/16 09:16:27 1.7
+++ generic.el 2005/10/08 15:07:42 1.8
＠＠ -1,6 +1,7 ＠＠
;;; generic.el --- defining simple major modes with comment and font-lock
;;
-;; Copyright (C) 1997, 1999, 2004, 2005 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 1999, 2002, 2003, 2004,
+;; 2005 Free Software Foundation, Inc.
;;
;; Author: Peter Breton <pbreton(a)cs.umb.edu>
;; Created: Fri Sep 27 1996
＠＠ -19,44 +20,41 ＠＠
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with XEmacs; see the file COPYING. If not, write to the Free
-;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-;; 02111-1307, USA.
+;; along with XEmacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
-;; Purpose:
-
-;; Meta-mode to create simple major modes
-;; with basic comment and font-lock support
-
-;;; Synched up with: GNU Emacs CVS HEAD as of 2004-05-24.
-
;;; Commentary:
;; INTRODUCTION:
-
-;; Generic-mode is a meta-mode which can be used to define small modes
+;;
+;; The macro `define-generic-mode' can be used to define small modes
;; which provide basic comment and font-lock support. These modes are
-;; intended for the many configuration files and such which are too small
-;; for a "real" mode, but still have a regular syntax, comment characters
-;; and the like.
+;; intended for the many configuration files and such which are too
+;; small for a "real" mode, but still have a regular syntax, comment
+;; characters and the like.
;;
;; Each generic mode can define the following:
;;
-;; * List of comment-characters. The entries in this list should be
-;; either a character, a one or two character string or a cons pair.
-;; If the entry is a character or a one-character string
-;; LIMITATIONS: Emacs does not support comment strings of more than
-;; two characters in length.
+;; * List of comment-characters. The elements of this list should be
+;; either a character, a one or two character string, or a cons
+;; cell. If the entry is a character or a string, it is added to
+;; the mode's syntax table with "comment starter" syntax. If the
+;; entry is a cons cell, the `car' and `cdr' of the pair are
+;; considered the "comment starter" and "comment ender"
+;; respectively. (The latter should be nil if you want comments to
+;; end at the end of the line.) Emacs does not support comment
+;; strings of more than two characters in length.
;;
;; * 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
-;; result to the following list:
+;; 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 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-keywords'.
+;; expressions, each of which should be of the same form as those in
+;; `font-lock-keywords'.
;;
;; * List of regular expressions to be placed in auto-mode-alist.
;;
＠＠ -65,219 +63,167 ＠＠
;; This should pretty much cover basic functionality; if you need much
;; more than this, or you find yourself writing extensive customizations,
;; perhaps you should be writing a major mode instead!
-;;
-;; LOCAL VARIABLES:
-;;
-;; To put a file into generic mode using local variables, use a line
-;; like this in a Local Variables block:
;;
-;; mode: default-generic
+;; EXAMPLE:
;;
-;; Do NOT use "mode: generic"!
-;; See also "AUTOMATICALLY ENTERING GENERIC MODE" below.
+;; You can use `define-generic-mode' like this:
;;
-;; DEFINING NEW GENERIC MODES:
-;;
-;; Use the `define-generic-mode' function to define new modes.
-;; For example:
-;;
-;; (require 'generic)
;; (define-generic-mode 'foo-generic-mode
-;; (list ?% )
-;; (list "keyword")
-;; nil
-;; (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
-;; '.FOO' are loaded, Emacs will go into foo-generic-mode and call
-;; 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
-;; options.
+;; (list ?%)
+;; (list "keyword")
+;; nil
+;; (list "\\.FOO\\'")
+;; (list 'foo-setup-function))
+;;
+;; to define 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' (which is interactive) to put a buffer into
+;; foo-generic-mode.
;;
;; GOTCHAS:
-;;
-;; Be careful that your font-lock definitions are correct. Getting them
-;; wrong can cause emacs to continually attempt to fontify! This problem
-;; is not specific to generic-mode.
;;
+;; Be careful that your font-lock definitions are correct. Getting
+;; them wrong can cause Emacs to continually attempt to fontify! This
+;; problem is not specific to generic-mode.
;; Credit for suggestions, brainstorming, help with debugging:
;; ACorreir(a)pervasive-sw.com (Alfred Correira)
;; Extensive cleanup by:
;; Stefan Monnier (monnier+gnu/emacs(a)flint.cs.yale.edu)
-;;
-;;; Code:
-(eval-when-compile
- (require 'cl))
+;;; Code:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Internal Variables
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(defvar generic-font-lock-defaults nil
- "Global defaults for font-lock in a generic mode.")
-(make-variable-buffer-local 'generic-font-lock-defaults)
+(defvar generic-font-lock-keywords nil
+ "Keywords for `font-lock-defaults' in a generic mode.")
+(make-variable-buffer-local 'generic-font-lock-keywords)
+;; XEmacs: only 2 args to define-obsolete-variable-alias
+(define-obsolete-variable-alias 'generic-font-lock-defaults 'generic-font-lock-keywords) ;"22.1")
+;;;###autoload
(defvar generic-mode-list nil
"A list of mode names for `generic-mode'.
Do not add entries to this list directly; use `define-generic-mode'
instead (which see).")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; 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.
-This is done if the first few lines of a file in fundamental mode start
-with a hash comment character."
- :group 'generic
- :type 'boolean
- )
-
-(defcustom generic-lines-to-scan 3
- "*Number of lines that `generic-mode-find-file-hook' looks at.
-Relevant when deciding whether to enter `generic-mode' automatically.
-This variable should be set to a small positive number."
- :group 'generic
- :type 'integer
- )
-
-(defcustom generic-find-file-regexp "^#"
- "*Regular expression used by `generic-mode-find-file-hook'.
-Files in fundamental mode whose first few lines contain a match for
-this regexp, should be put into `default-generic-mode' instead.
-The number of lines tested for the matches is specified by the value
-of the variable `generic-lines-to-scan', which see."
- :group 'generic
- :type 'regexp
- )
-
-(defcustom generic-ignore-files-regexp "[Tt][Aa][Gg][Ss]\\'"
- "*Regular expression used by `generic-mode-find-file-hook'.
-Files whose names match this regular expression should not be put
-into `default-generic-mode', even if they have lines which match the
-regexp in `generic-find-file-regexp'. If the value is nil,
-`generic-mode-find-file-hook' does not check the file names."
- :group 'generic
- :type '(choice (const :tag "Don't check file names" nil) regexp)
- )
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Functions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;###autoload
-(defun define-generic-mode (name comment-list keyword-list font-lock-list
- auto-mode-list function-list
- &optional description)
- "Create a new generic mode with NAME.
-
-NAME should be a symbol; its string representation is used as the function
-name. If DESCRIPTION is provided, it is used as the docstring for the new
-function.
-
-COMMENT-LIST is a list, whose entries are either a single character,
-a one or two character string or a cons pair. If the entry is a character
-or a one-character string, it is added to the mode's syntax table with
-`comment-start' syntax. If the entry is a cons pair, the elements of the
-pair are considered to be `comment-start' and `comment-end' respectively.
-\(The latter should be nil if you want comments to end at end of line.)
-Note that Emacs has limitations regarding comment characters.
-
-KEYWORD-LIST is a list of keywords to highlight with `font-lock-keyword-face'.
-Each keyword should be a string.
-
-FONT-LOCK-LIST is a list of additional expressions to highlight. Each entry
-in the list should have the same form as an entry in `font-lock-defaults'.
-
-AUTO-MODE-LIST is a list of regular expressions to add to `auto-mode-alist'.
-These regexps are added to `auto-mode-alist' as soon as `define-generic-mode'
-is called; any old regexps with the same name are removed.
-
-FUNCTION-LIST is a list of functions to call to do some additional setup.
+(defmacro define-generic-mode (mode comment-list keyword-list
+ font-lock-list auto-mode-list
+ function-list &optional docstring)
+ "Create a new generic mode MODE.
+
+MODE is the name of the command for the generic mode; don't quote it.
+The optional DOCSTRING is the documentation for the mode command. If
+you do not supply it, `define-generic-mode' uses a default
+documentation string instead.
+
+COMMENT-LIST is a list in which each element is either a character, a
+string of one or two characters, or a cons cell. A character or a
+string is set up in the mode's syntax table as a \"comment starter\".
+If the entry is a cons cell, the `car' is set up as a \"comment
+starter\" and the `cdr' as a \"comment ender\". (Use nil for the
+latter if you want comments to end at the end of the line.) Note that
+the syntax table has limitations about what comment starters and
+enders are actually possible.
+
+KEYWORD-LIST is a list of keywords to highlight with
+`font-lock-keyword-face'. Each keyword should be a string.
+
+FONT-LOCK-LIST is a list of additional expressions to highlight. Each
+element of this list should have the same form as an element of
+`font-lock-keywords'.
+
+AUTO-MODE-LIST is a list of regular expressions to add to
+`auto-mode-alist'. These regular expressions are added when Emacs
+runs the macro expansion.
+
+FUNCTION-LIST is a list of functions to call to do some additional
+setup. The mode command calls these functions just before it runs the
+mode hook `MODE-hook'.
See the file generic-x.el for some examples of `define-generic-mode'."
+ (declare (debug (sexp def-form def-form def-form form def-form
+ [&optional stringp] &rest [keywordp form]))
+ (indent 1))
+
+ ;; Backward compatibility.
+ (when (eq (car-safe mode) 'quote)
+ (setq mode (eval mode)))
+
+ (let* ((name (symbol-name mode))
+ ;; XEmacs change: use replace-in-string
+ (pretty-name (capitalize (replace-in-string name "-mode\\'" ""))))
+
+ `(progn
+ ;; Add a new entry.
+ (add-to-list 'generic-mode-list ,name)
+
+ ;; Add it to auto-mode-alist
+ (dolist (re ,auto-mode-list)
+ (add-to-list 'auto-mode-alist (cons re ',mode)))
+
+ (defun ,mode ()
+ ,(or docstring
+ (concat pretty-name " mode.\n"
+ "This a generic mode defined with `define-generic-mode'.\n"
+ "It runs `" name "-hook' as the last thing it does."))
+ (interactive)
+ (generic-mode-internal ',mode ,comment-list ,keyword-list
+ ,font-lock-list ,function-list)))))
- ;; Add a new entry
- (add-to-list 'generic-mode-list (symbol-name name))
-
- ;; Add it to auto-mode-alist
- (dolist (re auto-mode-list)
- (add-to-list 'auto-mode-alist (cons re name)))
-
- ;; Define a function for it using `defalias' (not `fset') to make
- ;; the mode appear on load-history.
- (defalias name
- `(lambda nil
- ,(or description (concat "Generic mode for type " (symbol-name name)))
- (interactive)
- (generic-mode-internal ',name ',comment-list ',keyword-list
- ',font-lock-list ',function-list)))
- )
-
-(defun generic-mode-internal (mode comments keywords font-lock-list funs)
- "Go into the generic-mode MODE."
- (let* ((generic-mode-hooks (intern (concat (symbol-name mode) "-hook")))
- (modename (symbol-name mode))
- (name (if (string-match "-mode\\'" modename)
- (substring modename 0 (match-beginning 0))
- modename))
- )
+;;;###autoload
+(defun generic-mode-internal (mode comment-list keyword-list
+ font-lock-list function-list)
+ "Go into the generic mode MODE."
+ (let* ((name (symbol-name mode))
+ ;; XEmacs change: use replace-in-string
+ (pretty-name (capitalize (replace-in-string name "-mode\\'" "")))
+ (mode-hook (intern (concat name "-hook"))))
- ;; Put this after the point where we read generic-mode-name!
(kill-all-local-variables)
- (setq
- major-mode mode
- mode-name (capitalize name)
- )
+ (setq major-mode mode
+ mode-name pretty-name)
- (generic-mode-set-comments comments)
+ (generic-mode-set-comments comment-list)
- ;; Font-lock functionality
- ;; Font-lock-defaults are always set even if there are no keywords
+ ;; Font-lock functionality.
+ ;; Font-lock-defaults is always set even if there are no keywords
;; or font-lock expressions, so comments can be highlighted.
- (setq generic-font-lock-defaults nil)
- (generic-mode-set-font-lock keywords font-lock-list)
- (make-local-variable 'font-lock-defaults)
- (setq font-lock-defaults (list 'generic-font-lock-defaults nil))
+ (setq generic-font-lock-keywords font-lock-list)
+ (when keyword-list
+ ;; XEmacs change: Ville thinks we don't have symbol anchors
+ (push (concat "\\<" (regexp-opt keyword-list t) "\\>")
+ generic-font-lock-keywords))
+ (setq font-lock-defaults '(generic-font-lock-keywords))
;; Call a list of functions
- (mapcar 'funcall funs)
+ (mapcar 'funcall function-list)
- (run-hooks generic-mode-hooks)
- )
- )
+ (run-mode-hooks mode-hook)))
;;;###autoload
-(defun generic-mode (type)
- "Basic comment and font-lock functionality for `generic' files.
-\(Files which are too small to warrant their own mode, but have
-comment characters, keywords, and the like.)
+(defun generic-mode (mode)
+ "Enter generic mode MODE.
+
+Generic modes provide basic comment and font-lock functionality
+for \"generic\" files. (Files which are too small to warrant their
+own mode, but have comment characters, keywords, and the like.)
To define a generic-mode, use the function `define-generic-mode'.
Some generic modes are defined in `generic-x.el'."
(interactive
- (list (completing-read "Generic Type: " generic-mode-list nil t)))
- (funcall (intern type)))
+ (list (completing-read "Generic mode: " generic-mode-list nil t)))
+ (funcall (intern mode)))
;;; Comment Functionality
(defun generic-mode-set-comments (comment-list)
＠＠ -285,16 +231,16 ＠＠ Some generic modes are defined in `gener
(let ((st (make-syntax-table))
(chars nil)
(comstyles))
- (make-local-variable 'comment-start)
- (make-local-variable 'comment-start-skip)
- (make-local-variable 'comment-end)
+ (make-local-variable 'comment-start)
+ (make-local-variable 'comment-start-skip)
+ (make-local-variable 'comment-end)
;; Go through all the comments
(dolist (start comment-list)
- (let ((end nil) (comstyle ""))
+ (let (end (comstyle ""))
;; Normalize
(when (consp start)
- (setq end (or (cdr start) end))
+ (setq end (cdr start))
(setq start (car start)))
;; XEmacs change: use `characterp' instead of `char-valid-p'
(when (characterp start) (setq start (char-to-string start)))
＠＠ -348,72 +294,27 ＠＠ Some generic modes are defined in `gener
st))
(set-syntax-table st)))
-(defun generic-mode-set-font-lock (keywords font-lock-expressions)
- "Set up font-lock functionality for generic mode."
- (setq generic-font-lock-defaults
- (append
- (when keywords
- (list (generic-make-keywords-list keywords font-lock-keyword-face)))
- font-lock-expressions)))
-
(defun generic-bracket-support ()
- "Support for [KEYWORD] constructs found in INF, INI and Samba files."
+ "Imenu support for [KEYWORD] constructs found in INF, INI and Samba files."
(setq imenu-generic-expression
'((nil "^\\[\\(.*\\)\\]" 1))
imenu-case-fold-search t))
-
-;; This generic mode is always defined
-(define-generic-mode 'default-generic-mode (list ?#) nil nil nil nil)
-;; A more general solution would allow us to enter generic-mode for
-;; *any* comment character, but would require us to synthesize a new
-;; generic-mode on the fly. I think this gives us most of what we
-;; want.
-(defun generic-mode-find-file-hook ()
- "Hook function to enter `default-generic-mode' automatically.
-Done if the first few lines of a file in `fundamental-mode' start with
-a match for the regexp in `generic-find-file-regexp', unless the
-file's name matches the regexp which is the value of the variable
-`generic-ignore-files-regexp'.
-This hook will be installed if the variable
-`generic-use-find-file-hook' is non-nil. The variable
-`generic-lines-to-scan' determines the number of lines to look at."
- (when (and (eq major-mode 'fundamental-mode)
- (or (null generic-ignore-files-regexp)
- (not (string-match
- generic-ignore-files-regexp
- (file-name-sans-versions buffer-file-name)))))
- (save-excursion
- (goto-char (point-min))
- (when (re-search-forward generic-find-file-regexp
- (save-excursion
- (forward-line generic-lines-to-scan)
- (point)) t)
- (goto-char (point-min))
- (default-generic-mode)))))
-
-(defun generic-mode-ini-file-find-file-hook ()
- "Hook function to enter `default-generic-mode' automatically for INI files.
-Done if the first few lines of a file in `fundamental-mode' look like an
-INI file. This hook is NOT installed by default."
- (and (eq major-mode 'fundamental-mode)
- (save-excursion
- (goto-char (point-min))
- (and (looking-at "^\\s-*\\[.*\\]")
- (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-LIST.
-The regexp is highlighted with FACE."
- (unless (listp keywords-list)
+;;;###autoload
+(defun generic-make-keywords-list (keyword-list face &optional prefix suffix)
+ "Return a `font-lock-keywords' construct that highlights KEYWORD-LIST.
+KEYWORD-LIST is a list of keyword strings that should be
+highlighted with face FACE. This function calculates a regular
+expression that matches these keywords and concatenates it with
+PREFIX and SUFFIX. Then it returns a construct based on this
+regular expression that can be used as an element of
+`font-lock-keywords'."
+ (unless (listp keyword-list)
(error "Keywords argument must be a list of strings"))
;; XEmacs change: Ville thinks we don't have symbol anchors.
(list (concat prefix "\\<" ; "\\_<"
;; Use an optimized regexp.
- (regexp-opt keywords-list t)
+ (regexp-opt keyword-list t)
"\\>" suffix) ; "\\_>"
1
face))
- 1 participants
- 0 comments