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.") |