Mercurial > emacs
comparison lisp/progmodes/executable.el @ 16128:7af77f490166
(executable-insert): Doc fix.
(executable-query): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 04 Sep 1996 17:02:12 +0000 |
| parents | 347aa710b4a9 |
| children | f0ff96a35eb8 |
comparison
equal
deleted
inserted
replaced
| 16127:8d6d35b486c0 | 16128:7af77f490166 |
|---|---|
| 50 ;; lock keywords. Their mode-setting commands should call | 50 ;; lock keywords. Their mode-setting commands should call |
| 51 ;; `executable-set-magic'. | 51 ;; `executable-set-magic'. |
| 52 | 52 |
| 53 ;;; Code: | 53 ;;; Code: |
| 54 | 54 |
| 55 (defvar executable-insert 'not-modified | 55 (defvar executable-insert t |
| 56 "*What to do when newly found file has no or wrong magic number: | 56 "*Non-nil means offer to add a magic number to a file. |
| 57 nil do nothing | 57 This takes effect when you switch to certain major modes, |
| 58 t insert or update magic number | 58 including Shell-script mode (`sh-mode'). |
| 59 other insert or update magic number, but mark as unmodified. | 59 When you type \\[executable-set-magic], it always offers to add or |
| 60 When the insertion is marked as unmodified, you can save it with \\[write-file] RET. | 60 update the magic number.") |
| 61 This variable is used when `executable-set-magic' is called as a function, | |
| 62 e.g. when Emacs sets some Un*x interpreter script mode. | |
| 63 With \\[executable-set-magic], this is always treated as if it were `t'.") | |
| 64 | |
| 65 | 61 |
| 66 (defvar executable-query 'function | 62 (defvar executable-query 'function |
| 67 "*If non-`nil', ask user before inserting or changing magic number. | 63 "*If non-nil, ask user before changing an existing magic number. |
| 68 When this is `function', only ask when called non-interactively.") | 64 When this is `function', only ask when called non-interactively.") |
| 69 | 65 |
| 70 | 66 |
| 71 (defvar executable-magicless-file-regexp "/[Mm]akefile$\\|/\\.\\(z?profile\\|bash_profile\\|z?login\\|bash_login\\|z?logout\\|bash_logout\\|.+shrc\\|esrc\\|rcrc\\|[kz]shenv\\)$" | 67 (defvar executable-magicless-file-regexp "/[Mm]akefile$\\|/\\.\\(z?profile\\|bash_profile\\|z?login\\|bash_login\\|z?logout\\|bash_logout\\|.+shrc\\|esrc\\|rcrc\\|[kz]shenv\\)$" |
| 72 "*On files with this kind of name no magic is inserted or changed.") | 68 "*On files with this kind of name no magic is inserted or changed.") |
