diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a07511a771d..0b355fec5f2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,18 @@ +2005-04-13 Lute Kamstra + + * 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 * term/xterm.el (function-key-map): Add mappings for A-, C-, S- diff --git a/lisp/generic-x.el b/lisp/generic-x.el index f700ff6041d..a13103edb3d 100644 --- a/lisp/generic-x.el +++ b/lisp/generic-x.el @@ -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)