[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/generic-x.el
From: |
Lute Kamstra |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/generic-x.el |
Date: |
Thu, 28 Apr 2005 05:17:06 -0400 |
Index: emacs/lisp/generic-x.el
diff -c emacs/lisp/generic-x.el:1.33 emacs/lisp/generic-x.el:1.34
*** emacs/lisp/generic-x.el:1.33 Wed Apr 13 09:21:49 2005
--- emacs/lisp/generic-x.el Thu Apr 28 09:17:06 2005
***************
*** 1,4 ****
! ;;; generic-x.el --- Extra Modes for generic-mode
;; Copyright (C) 1997, 1998, 2003, 2005 Free Software Foundation, Inc.
--- 1,4 ----
! ;;; generic-x.el --- A collection of generic modes
;; Copyright (C) 1997, 1998, 2003, 2005 Free Software Foundation, Inc.
***************
*** 25,31 ****
;;; Commentary:
;;
! ;; This file contains some pre-defined generic-modes.
;;
;; INSTALLATION:
;;
--- 25,31 ----
;;; Commentary:
;;
! ;; This file contains a collection generic modes.
;;
;; INSTALLATION:
;;
***************
*** 34,45 ****
;; (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).
;;
! ;; You can also send in new modes; if the file types a reasonably common,
! ;; we would like to install them.
;;
;; DEFAULT GENERIC MODE:
;;
--- 34,51 ----
;; (require 'generic-x)
;;
;; You can decide which modes to load by setting the variable
! ;; `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:
;;
***************
*** 54,66 ****
;; PROBLEMS WHEN USED WITH FOLDING MODE:
;;
;; [The following relates to the obsolete selective-display technique.
! ;; Folding mode should use invisible text properties instead. -- Dave
;; Love]
;;
;; From Anders Lindgren <address@hidden>
;;
;; Problem summary: Wayne Adams has found a problem when using folding
! ;; mode in conjuction with font-lock for a mode defined in
;; `generic-x.el'.
;;
;; The problem, as Wayne described it, was that error messages of the
--- 60,72 ----
;; PROBLEMS WHEN USED WITH FOLDING MODE:
;;
;; [The following relates to the obsolete selective-display technique.
! ;; Folding mode should use invisible text properties instead. -- Dave
;; Love]
;;
;; From Anders Lindgren <address@hidden>
;;
;; Problem summary: Wayne Adams has found a problem when using folding
! ;; mode in conjunction with font-lock for a mode defined in
;; `generic-x.el'.
;;
;; The problem, as Wayne described it, was that error messages of the
***************
*** 69,86 ****
;; > - 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
;; `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
;; 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 erroronous lines in `generic-extras' look like the following (this
;; example is from the `ini' section):
;;
;; '(("^\\(\\[.*\\]\\)" 1 'font-lock-constant-face)
--- 75,92 ----
;; > - 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' 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
;; 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-x.el' look like the following (this
;; example is from the `ini' section):
;;
;; '(("^\\(\\[.*\\]\\)" 1 'font-lock-constant-face)
***************
*** 92,108 ****
;; [foo]
;; bar = xxx
;;
! ;; However, since the `.' regexp symbol match 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.
;;; Code:
! (require 'font-lock)
(defgroup generic-x nil
"A collection of generic modes."
--- 98,114 ----
;; [foo]
;; bar = xxx
;;
! ;; However, since the `.' regexp symbol matches the linefeed character
! ;; the entire folded section is searched, resulting in a regexp stack
;; overflow.
;;
! ;; 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))
(defgroup generic-x nil
"A collection of generic modes."
***************
*** 110,115 ****
--- 116,126 ----
:group 'data
:version "20.3")
+ (defgroup generic-x-modes nil
+ "Individual modes in the collection of generic modes."
+ :group 'generic-x
+ :version "22.1")
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Default-Generic mode
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
***************
*** 147,153 ****
: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 :group
'generic)
;; A more general solution would allow us to enter generic-mode for
;; *any* comment character, but would require us to synthesize a new
--- 158,164 ----
: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 :group
'generic-x-modes)
;; A more general solution would allow us to enter generic-mode for
;; *any* comment character, but would require us to synthesize a new
***************
*** 185,239 ****
;; Other Generic modes
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
! (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."
! :group 'generic-x
! :type '(repeat sexp))
(defcustom generic-define-mswindows-modes
(memq system-type '(windows-nt ms-dos))
! "*If non-nil, some MS-Windows specific generic modes will be defined."
:group 'generic-x
! :type 'boolean)
(defcustom generic-define-unix-modes
(not (memq system-type '(windows-nt ms-dos)))
! "*If non-nil, some Unix specific generic modes will be defined."
:group 'generic-x
! :type 'boolean)
!
! (and generic-define-mswindows-modes
! (setq generic-extras-enable-list
! (append '(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 '(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)))
;;; Apache
(when (memq 'apache-conf-generic-mode generic-extras-enable-list)
--- 196,296 ----
;; 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
! apache-log-generic-mode
! hosts-generic-mode
! java-manifest-generic-mode
! java-properties-generic-mode
! javascript-generic-mode
! show-tabs-generic-mode
! vrml-generic-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)
! "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")
(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")
!
! (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
(when (memq 'apache-conf-generic-mode generic-extras-enable-list)
***************
*** 252,258 ****
("*Directories*" "^\\s-*<Directory\\s-*\\([^>]+\\)>" 1)
("*Locations*" "^\\s-*<Location\\s-*\\([^>]+\\)>" 1))))))
"Generic mode for Apache or HTTPD configuration files."
! :group 'generic-x))
(when (memq 'apache-log-generic-mode generic-extras-enable-list)
--- 309,315 ----
("*Directories*" "^\\s-*<Directory\\s-*\\([^>]+\\)>" 1)
("*Locations*" "^\\s-*<Location\\s-*\\([^>]+\\)>" 1))))))
"Generic mode for Apache or HTTPD configuration files."
! :group 'generic-x-modes))
(when (memq 'apache-log-generic-mode generic-extras-enable-list)
***************
*** 266,272 ****
'("access_log\\'")
nil
"Mode for Apache log files"
! :group 'generic-x))
;;; Samba
(when (memq 'samba-generic-mode generic-extras-enable-list)
--- 323,329 ----
'("access_log\\'")
nil
"Mode for Apache log files"
! :group 'generic-x-modes))
;;; Samba
(when (memq 'samba-generic-mode generic-extras-enable-list)
***************
*** 281,287 ****
'("smb\\.conf\\'")
'(generic-bracket-support)
"Generic mode for Samba configuration files."
! :group 'generic-x))
;;; Fvwm
;; This is pretty basic. Also, modes for other window managers could
--- 338,344 ----
'("smb\\.conf\\'")
'(generic-bracket-support)
"Generic mode for Samba configuration files."
! :group 'generic-x-modes))
;;; Fvwm
;; This is pretty basic. Also, modes for other window managers could
***************
*** 307,313 ****
'("\\.fvwmrc\\'" "\\.fvwm2rc\\'")
nil
"Generic mode for FVWM configuration files."
! :group 'generic-x))
;;; X Resource
;; I'm pretty sure I've seen an actual mode to do this, but I don't
--- 364,370 ----
'("\\.fvwmrc\\'" "\\.fvwm2rc\\'")
nil
"Generic mode for FVWM configuration files."
! :group 'generic-x-modes))
;;; X Resource
;; I'm pretty sure I've seen an actual mode to do this, but I don't
***************
*** 321,327 ****
'("\\.Xdefaults\\'" "\\.Xresources\\'" "\\.Xenvironment\\'" "\\.ad\\'")
nil
"Generic mode for X Resource configuration files."
! :group 'generic-x))
;;; Hosts
(when (memq 'hosts-generic-mode generic-extras-enable-list)
--- 378,384 ----
'("\\.Xdefaults\\'" "\\.Xresources\\'" "\\.Xenvironment\\'" "\\.ad\\'")
nil
"Generic mode for X Resource configuration files."
! :group 'generic-x-modes))
;;; Hosts
(when (memq 'hosts-generic-mode generic-extras-enable-list)
***************
*** 333,339 ****
'("[hH][oO][sS][tT][sS]\\'")
nil
"Generic mode for HOSTS files."
! :group 'generic-x))
;;; Windows INF files
(when (memq 'inf-generic-mode generic-extras-enable-list)
--- 390,396 ----
'("[hH][oO][sS][tT][sS]\\'")
nil
"Generic mode for HOSTS files."
! :group 'generic-x-modes))
;;; Windows INF files
(when (memq 'inf-generic-mode generic-extras-enable-list)
***************
*** 345,351 ****
'("\\.[iI][nN][fF]\\'")
'(generic-bracket-support)
"Generic mode for MS-Windows INF files."
! :group 'generic-x))
;;; Windows INI files
;; Should define escape character as well!
--- 402,408 ----
'("\\.[iI][nN][fF]\\'")
'(generic-bracket-support)
"Generic mode for MS-Windows INF files."
! :group 'generic-x-modes))
;;; Windows INI files
;; Should define escape character as well!
***************
*** 368,374 ****
"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\"."
! :group 'generic-x)
(defun ini-generic-mode-find-file-hook ()
"Hook function to enter Ini-Generic mode automatically for INI files.
--- 425,431 ----
"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\"."
! :group 'generic-x-modes)
(defun ini-generic-mode-find-file-hook ()
"Hook function to enter Ini-Generic mode automatically for INI files.
***************
*** 397,403 ****
(setq imenu-generic-expression
'((nil "^\\s-*\\(.*\\)\\s-*=" 1))))))
"Generic mode for MS-Windows Registry files."
! :group 'generic-x))
;;; DOS/Windows BAT files
(when (memq 'bat-generic-mode generic-extras-enable-list)
--- 454,460 ----
(setq imenu-generic-expression
'((nil "^\\s-*\\(.*\\)\\s-*=" 1))))))
"Generic mode for MS-Windows Registry files."
! :group 'generic-x-modes))
;;; DOS/Windows BAT files
(when (memq 'bat-generic-mode generic-extras-enable-list)
***************
*** 472,481 ****
"\\`[aA][uU][tT][oO][eE][xX][eE][cC]\\.")
'(generic-bat-mode-setup-function)
"Generic mode for MS-Windows BAT files."
! :group 'generic-x)
(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.")
--- 529,538 ----
"\\`[aA][uU][tT][oO][eE][xX][eE][cC]\\.")
'(generic-bat-mode-setup-function)
"Generic mode for MS-Windows BAT files."
! :group 'generic-x-modes)
(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.")
***************
*** 552,558 ****
(setq imenu-generic-expression
'((nil "\\s-/\\([^/]+\\)/[i, \t\n]" 1))))))
"Mode for Mailagent rules files."
! :group 'generic-x))
;; Solaris/Sys V prototype files
(when (memq 'prototype-generic-mode generic-extras-enable-list)
--- 609,615 ----
(setq imenu-generic-expression
'((nil "\\s-/\\([^/]+\\)/[i, \t\n]" 1))))))
"Mode for Mailagent rules files."
! :group 'generic-x-modes))
;; Solaris/Sys V prototype files
(when (memq 'prototype-generic-mode generic-extras-enable-list)
***************
*** 576,582 ****
'("prototype\\'")
nil
"Mode for Sys V prototype files."
! :group 'generic-x))
;; Solaris/Sys V pkginfo files
(when (memq 'pkginfo-generic-mode generic-extras-enable-list)
--- 633,639 ----
'("prototype\\'")
nil
"Mode for Sys V prototype files."
! :group 'generic-x-modes))
;; Solaris/Sys V pkginfo files
(when (memq 'pkginfo-generic-mode generic-extras-enable-list)
***************
*** 590,599 ****
'("pkginfo\\'")
nil
"Mode for Sys V pkginfo files."
! :group 'generic-x))
;; Javascript mode
;; Includes extra keywords from Armando Singer address@hidden
(define-generic-mode javascript-generic-mode
'("//" ("/*" . "*/"))
'("break"
--- 647,658 ----
'("pkginfo\\'")
nil
"Mode for Sys V pkginfo files."
! :group 'generic-x-modes))
;; Javascript mode
;; Includes extra keywords from Armando Singer address@hidden
+ (when (memq 'javascript-generic-mode generic-extras-enable-list)
+
(define-generic-mode javascript-generic-mode
'("//" ("/*" . "*/"))
'("break"
***************
*** 668,676 ****
'((nil "^function\\s-+\\([A-Za-z0-9_]+\\)" 1)
("*Variables*" "^var\\s-+\\([A-Za-z0-9_]+\\)" 1))))))
"Mode for JavaScript files."
! :group 'generic-x)
;; VRML files
(define-generic-mode vrml-generic-mode
'(?#)
'("DEF"
--- 727,737 ----
'((nil "^function\\s-+\\([A-Za-z0-9_]+\\)" 1)
("*Variables*" "^var\\s-+\\([A-Za-z0-9_]+\\)" 1))))))
"Mode for JavaScript files."
! :group 'generic-x-modes))
;; VRML files
+ (when (memq 'vrml-generic-mode generic-extras-enable-list)
+
(define-generic-mode vrml-generic-mode
'(?#)
'("DEF"
***************
*** 720,728 ****
"DEF\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([A-Za-z0-9]+\\)\\s-*{"
1))))))
"Generic Mode for VRML files."
! :group 'generic-x)
;; Java Manifests
(define-generic-mode java-manifest-generic-mode
'(?#)
'("Name"
--- 781,791 ----
"DEF\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([A-Za-z0-9]+\\)\\s-*{"
1))))))
"Generic Mode for VRML files."
! :group 'generic-x-modes))
;; Java Manifests
+ (when (memq 'java-manifest-generic-mode generic-extras-enable-list)
+
(define-generic-mode java-manifest-generic-mode
'(?#)
'("Name"
***************
*** 740,748 ****
'("[mM][aA][nN][iI][fF][eE][sS][tT]\\.[mM][fF]\\'")
nil
"Mode for Java Manifest files"
! :group 'generic-x)
;; Java properties files
(define-generic-mode java-properties-generic-mode
'(?! ?#)
nil
--- 803,813 ----
'("[mM][aA][nN][iI][fF][eE][sS][tT]\\.[mM][fF]\\'")
nil
"Mode for Java Manifest files"
! :group 'generic-x-modes))
;; Java properties files
+ (when (memq 'java-properties-generic-mode generic-extras-enable-list)
+
(define-generic-mode java-properties-generic-mode
'(?! ?#)
nil
***************
*** 771,777 ****
(setq imenu-generic-expression
'((nil "^\\([^#! \t\n\r=:]+\\)" 1))))))
"Mode for Java properties files."
! :group 'generic-x)
;; C shell alias definitions
(when (memq 'alias-generic-mode generic-extras-enable-list)
--- 836,842 ----
(setq imenu-generic-expression
'((nil "^\\([^#! \t\n\r=:]+\\)" 1))))))
"Mode for Java properties files."
! :group 'generic-x-modes))
;; C shell alias definitions
(when (memq 'alias-generic-mode generic-extras-enable-list)
***************
*** 790,796 ****
(setq imenu-generic-expression
'((nil "^\\(alias\\|unalias\\)\\s-+\\([-a-zA-Z0-9_]+\\)" 2))))))
"Mode for C Shell alias files."
! :group 'generic-x))
;;; Windows RC files
;; Contributed by address@hidden (Alfred Correira)
--- 855,861 ----
(setq imenu-generic-expression
'((nil "^\\(alias\\|unalias\\)\\s-+\\([-a-zA-Z0-9_]+\\)" 2))))))
"Mode for C Shell alias files."
! :group 'generic-x-modes))
;;; Windows RC files
;; Contributed by address@hidden (Alfred Correira)
***************
*** 883,889 ****
'("\\.[rR][cC]\\'")
nil
"Generic mode for MS-Windows Resource files."
! :group 'generic-x))
;; InstallShield RUL files
;; Contributed by address@hidden
--- 948,954 ----
'("\\.[rR][cC]\\'")
nil
"Generic mode for MS-Windows Resource files."
! :group 'generic-x-modes))
;; InstallShield RUL files
;; Contributed by address@hidden
***************
*** 1436,1442 ****
"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))
--- 1501,1507 ----
"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))
***************
*** 1504,1510 ****
'("\\.[rR][uU][lL]\\'")
'(generic-rul-mode-setup-function)
"Generic mode for InstallShield RUL files."
! :group 'generic-x)
(define-skeleton rul-if
"Insert an if statement."
--- 1569,1575 ----
'("\\.[rR][uU][lL]\\'")
'(generic-rul-mode-setup-function)
"Generic mode for InstallShield RUL files."
! :group 'generic-x-modes)
(define-skeleton rul-if
"Insert an if statement."
***************
*** 1531,1536 ****
--- 1596,1603 ----
> "end;"))
;; Additions by address@hidden (Alfred Correira)
+ (when (memq 'mailrc-generic-mode generic-extras-enable-list)
+
(define-generic-mode mailrc-generic-mode
'(?#)
'("alias"
***************
*** 1553,1559 ****
'("\\.mailrc\\'")
nil
"Mode for mailrc files."
! :group 'generic-x)
;; Inetd.conf
(when (memq 'inetd-conf-generic-mode generic-extras-enable-list)
--- 1620,1626 ----
'("\\.mailrc\\'")
nil
"Mode for mailrc files."
! :group 'generic-x-modes))
;; Inetd.conf
(when (memq 'inetd-conf-generic-mode generic-extras-enable-list)
***************
*** 1574,1580 ****
(lambda ()
(setq imenu-generic-expression
'((nil "^\\([-A-Za-z0-9_]+\\)" 1))))))
! :group 'generic-x))
;; Services
(when (memq 'etc-services-generic-mode generic-extras-enable-list)
--- 1641,1647 ----
(lambda ()
(setq imenu-generic-expression
'((nil "^\\([-A-Za-z0-9_]+\\)" 1))))))
! :group 'generic-x-modes))
;; Services
(when (memq 'etc-services-generic-mode generic-extras-enable-list)
***************
*** 1593,1599 ****
(lambda ()
(setq imenu-generic-expression
'((nil "^\\([-A-Za-z0-9_]+\\)" 1))))))
! :group 'generic-x))
;; Password and Group files
(when (memq 'etc-passwd-generic-mode generic-extras-enable-list)
--- 1660,1666 ----
(lambda ()
(setq imenu-generic-expression
'((nil "^\\([-A-Za-z0-9_]+\\)" 1))))))
! :group 'generic-x-modes))
;; Password and Group files
(when (memq 'etc-passwd-generic-mode generic-extras-enable-list)
***************
*** 1636,1642 ****
(lambda ()
(setq imenu-generic-expression
'((nil "^\\([-A-Za-z0-9_]+\\):" 1))))))
! :group 'generic-x))
;; Fstab
(when (memq 'etc-fstab-generic-mode generic-extras-enable-list)
--- 1703,1709 ----
(lambda ()
(setq imenu-generic-expression
'((nil "^\\([-A-Za-z0-9_]+\\):" 1))))))
! :group 'generic-x-modes))
;; Fstab
(when (memq 'etc-fstab-generic-mode generic-extras-enable-list)
***************
*** 1687,1695 ****
(lambda ()
(setq imenu-generic-expression
'((nil "^\\([/-A-Za-z0-9_]+\\)\\s-+" 1))))))
! :group 'generic-x))
;; From Jacques Duthen <address@hidden>
(eval-when-compile
(defconst show-tabs-generic-mode-font-lock-defaults-1
--- 1754,1764 ----
(lambda ()
(setq imenu-generic-expression
'((nil "^\\([/-A-Za-z0-9_]+\\)\\s-+" 1))))))
! :group 'generic-x-modes))
;; From Jacques Duthen <address@hidden>
+ (when (memq 'show-tabs-generic-mode generic-extras-enable-list)
+
(eval-when-compile
(defconst show-tabs-generic-mode-font-lock-defaults-1
***************
*** 1711,1717 ****
(((class color)) (:background "red"))
(t (:weight bold)))
"Font Lock mode face used to highlight TABs."
! :group 'generic-x)
(defface show-tabs-space-face
'((((class grayscale) (background light)) (:background "DimGray" :weight
bold))
--- 1780,1786 ----
(((class color)) (:background "red"))
(t (:weight bold)))
"Font Lock mode face used to highlight TABs."
! :group 'generic-x-modes)
(defface show-tabs-space-face
'((((class grayscale) (background light)) (:background "DimGray" :weight
bold))
***************
*** 1720,1726 ****
(((class color)) (:background "yellow"))
(t (:weight bold)))
"Font Lock mode face used to highlight spaces."
! :group 'generic-x)
(define-generic-mode show-tabs-generic-mode
nil ;; no comment char
--- 1789,1795 ----
(((class color)) (:background "yellow"))
(t (:weight bold)))
"Font Lock mode face used to highlight spaces."
! :group 'generic-x-modes)
(define-generic-mode show-tabs-generic-mode
nil ;; no comment char
***************
*** 1730,1741 ****
;; '(show-tabs-generic-mode-hook-fun)
nil
"Generic mode to show tabs and trailing spaces"
! :group 'generic-x)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; DNS modes
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-generic-mode named-boot-generic-mode
;; List of comment characters
'(?\;)
--- 1799,1812 ----
;; '(show-tabs-generic-mode-hook-fun)
nil
"Generic mode to show tabs and trailing spaces"
! :group 'generic-x-modes))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; DNS modes
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ (when (memq 'named-boot-generic-mode generic-extras-enable-list)
+
(define-generic-mode named-boot-generic-mode
;; List of comment characters
'(?\;)
***************
*** 1752,1758 ****
'("/etc/named.boot\\'")
;; List of set up functions to call
nil
! :group 'generic-x)
(define-generic-mode named-database-generic-mode
;; List of comment characters
--- 1823,1831 ----
'("/etc/named.boot\\'")
;; List of set up functions to call
nil
! :group 'generic-x-modes))
!
! (when (memq 'named-database-generic-mode generic-extras-enable-list)
(define-generic-mode named-database-generic-mode
;; List of comment characters
***************
*** 1766,1772 ****
nil
;; List of set up functions to call
nil
! :group 'generic-x)
(defvar named-database-time-string "%Y%m%d%H"
"Timestring for named serial numbers.")
--- 1839,1845 ----
nil
;; List of set up functions to call
nil
! :group 'generic-x-modes)
(defvar named-database-time-string "%Y%m%d%H"
"Timestring for named serial numbers.")
***************
*** 1774,1780 ****
(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))))
(define-generic-mode resolve-conf-generic-mode
;; List of comment characters
--- 1847,1855 ----
(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)))))
!
! (when (memq 'resolve-conf-generic-mode generic-extras-enable-list)
(define-generic-mode resolve-conf-generic-mode
;; List of comment characters
***************
*** 1787,1798 ****
'("/etc/resolv[e]?.conf\\'")
;; List of set up functions to call
nil
! :group 'generic-x)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Modes for spice and common electrical engineering circuit netlist formats
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-generic-mode spice-generic-mode
nil
'("and"
--- 1862,1875 ----
'("/etc/resolv[e]?.conf\\'")
;; List of set up functions to call
nil
! :group 'generic-x-modes))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Modes for spice and common electrical engineering circuit netlist formats
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ (when (memq 'spice-generic-mode generic-extras-enable-list)
+
(define-generic-mode spice-generic-mode
nil
'("and"
***************
*** 1830,1836 ****
(lambda()
(setq font-lock-defaults '(generic-font-lock-keywords nil t)))))
"Generic mode for SPICE circuit netlist files."
! :group 'generic-x)
(define-generic-mode ibis-generic-mode
'(?|)
--- 1907,1915 ----
(lambda()
(setq font-lock-defaults '(generic-font-lock-keywords nil t)))))
"Generic mode for SPICE circuit netlist files."
! :group 'generic-x-modes))
!
! (when (memq 'ibis-generic-mode generic-extras-enable-list)
(define-generic-mode ibis-generic-mode
'(?|)
***************
*** 1840,1846 ****
'("\\.[iI][bB][sS]\\'")
'(generic-bracket-support)
"Generic mode for IBIS circuit netlist files."
! :group 'generic-x)
(define-generic-mode astap-generic-mode
nil
--- 1919,1927 ----
'("\\.[iI][bB][sS]\\'")
'(generic-bracket-support)
"Generic mode for IBIS circuit netlist files."
! :group 'generic-x-modes))
!
! (when (memq 'astap-generic-mode generic-extras-enable-list)
(define-generic-mode astap-generic-mode
nil
***************
*** 1876,1882 ****
(lambda()
(setq font-lock-defaults '(generic-font-lock-keywords nil t)))))
"Generic mode for ASTAP circuit netlist files."
! :group 'generic-x)
(define-generic-mode etc-modules-conf-generic-mode
;; List of comment characters
--- 1957,1965 ----
(lambda()
(setq font-lock-defaults '(generic-font-lock-keywords nil t)))))
"Generic mode for ASTAP circuit netlist files."
! :group 'generic-x-modes))
!
! (when (memq 'etc-modules-conf-generic-mode generic-extras-enable-list)
(define-generic-mode etc-modules-conf-generic-mode
;; List of comment characters
***************
*** 1919,1925 ****
'("/etc/modules.conf" "/etc/conf.modules")
;; List of set up functions to call
nil
! :group 'generic-x)
(provide 'generic-x)
--- 2002,2008 ----
'("/etc/modules.conf" "/etc/conf.modules")
;; List of set up functions to call
nil
! :group 'generic-x-modes))
(provide 'generic-x)
- [Emacs-diffs] Changes to emacs/lisp/generic-x.el, Lute Kamstra, 2005/04/04
- [Emacs-diffs] Changes to emacs/lisp/generic-x.el, Lute Kamstra, 2005/04/05
- [Emacs-diffs] Changes to emacs/lisp/generic-x.el, Dan Nicolaescu, 2005/04/08
- [Emacs-diffs] Changes to emacs/lisp/generic-x.el, Lute Kamstra, 2005/04/11
- [Emacs-diffs] Changes to emacs/lisp/generic-x.el, Lute Kamstra, 2005/04/11
- [Emacs-diffs] Changes to emacs/lisp/generic-x.el, Lute Kamstra, 2005/04/13
- [Emacs-diffs] Changes to emacs/lisp/generic-x.el,
Lute Kamstra <=