mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(generic-find-file-regexp): Doc fix.

Browse Source 
(generic-ignore-files-regexp): New defcustom.
(generic-mode-find-file-hook): If the file's name matches the
regexp in `generic-ignore-files-regexp', don't enter
default-generic-mode.  Doc fix.
This commit is contained in:
Eli Zaretskii 2001-02-16 14:36:39 +00:00
parent c3ddcbc8ce
commit fb339cd5b6
2 changed files with 31 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,11 @@
2001-02-16 Eli Zaretskii <eliz@is.elta.co.il>
* generic.el (generic-find-file-regexp): Doc fix.
(generic-ignore-files-regexp): New defcustom.
(generic-mode-find-file-hook): If the file's name matches the
regexp in `generic-ignore-files-regexp', don't enter
default-generic-mode. Doc fix.
2001-02-16 Gerd Moellmann <gerd@gnu.org>
* textmodes/flyspell.el (flyspell-region, flyspell-buffer):

27
lisp/generic.el
View File

@ -160,12 +160,24 @@ This variable should be set to a small positive number."
(defcustom generic-find-file-regexp "^#"
"*Regular expression used by `generic-mode-find-file-hook'.
Used to determine if files in fundamental mode should be put into
`default-generic-mode' instead."
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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -358,10 +370,17 @@ Some generic modes are defined in `generic-x.el'."
(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 hash comment character. This hook will be installed if the variable
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 (eq major-mode 'fundamental-mode)
(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