mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(generic-mode-ini-file-find-file-hook):

Browse Source 
Rename to ini-generic-mode-find-file-hook.
Keep generic-mode-ini-file-find-file-hook as an alias.
(ini-generic-mode-find-file-hook): Rename from
generic-mode-ini-file-find-file-hook.  Fix docstring.
(ini-generic-mode): Docstring change.
(bat-generic-mode-run-as-comint): Silence the byte compiler.
This commit is contained in:
Lute Kamstra 2005-04-13 09:24:57 +00:00
parent 59d922a4da
commit a2d66c78bb
2 changed files with 31 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/ChangeLog
View File

@ -1,3 +1,18 @@
2005-04-13 Lute Kamstra <lute@gnu.org>
* generic-x.el (generic-mode-ini-file-find-file-hook):
Rename to ini-generic-mode-find-file-hook.
Keep generic-mode-ini-file-find-file-hook as an alias.
(ini-generic-mode-find-file-hook): Rename from
generic-mode-ini-file-find-file-hook. Fix docstring.
(ini-generic-mode): Docstring change.
(bat-generic-mode-run-as-comint): Silence the byte compiler.
* help.el (describe-key-briefly): UNTRANSLATED can be nil when
called from lisp.
* generic.el: Move to the emacs-lisp subdir.
2005-04-12 Dan Nicolaescu <dann@ics.uci.edu>
* term/xterm.el (function-key-map): Add mappings for A-, C-, S-

28
lisp/generic-x.el
View File

@ -178,16 +178,6 @@ This hook will be installed if the variable
(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-hook 'generic-mode-find-file-hook))
@ -375,8 +365,21 @@ generic-x to enable the specified modes."
(setq imenu-generic-expression
'((nil "^\\[\\(.*\\)\\]" 1)
("*Variables*" "^\\s-*\\([^=]+\\)\\s-*=" 1))))))
"Generic mode for MS-Windows INI files."
:group 'generic-x))
"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.
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!
@ -487,6 +490,7 @@ generic-x to enable the specified modes."
(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)