diff options
| author | Glenn Morris | 2015-06-10 16:24:32 -0400 |
|---|---|---|
| committer | Glenn Morris | 2015-06-10 16:24:32 -0400 |
| commit | d9d04bfa49514692b752072d9e6559a05d24f336 (patch) | |
| tree | 94235754e1dc43f57182a80261b61032b4334658 /lisp/progmodes/executable.el | |
| parent | dfa1dc1c2b05eff6336cfac0f36c6137b4a57733 (diff) | |
| download | emacs-d9d04bfa49514692b752072d9e6559a05d24f336.tar.gz emacs-d9d04bfa49514692b752072d9e6559a05d24f336.zip | |
* lisp/progmodes/executable.el (executable-self-display): Obsolete.
No longer autoload.
* doc/misc/autotype.texi (Executables):
Undocument executable-self-display.
Diffstat (limited to 'lisp/progmodes/executable.el')
| -rw-r--r-- | lisp/progmodes/executable.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el index 367a2e72d74..50e4da93c73 100644 --- a/lisp/progmodes/executable.el +++ b/lisp/progmodes/executable.el | |||
| @@ -109,6 +109,8 @@ Note that the like of `more' doesn't work too well under Emacs \\[shell]." | |||
| 109 | :type 'string | 109 | :type 'string |
| 110 | :group 'executable) | 110 | :group 'executable) |
| 111 | 111 | ||
| 112 | (make-obsolete-variable 'executable-self-display nil "25.1" 'set) | ||
| 113 | |||
| 112 | 114 | ||
| 113 | (defvar executable-font-lock-keywords | 115 | (defvar executable-font-lock-keywords |
| 114 | '(("\\`#!.*/\\([^ \t\n]+\\)" 1 font-lock-keyword-face t)) | 116 | '(("\\`#!.*/\\([^ \t\n]+\\)" 1 font-lock-keyword-face t)) |
| @@ -251,10 +253,10 @@ executable." | |||
| 251 | 253 | ||
| 252 | 254 | ||
| 253 | 255 | ||
| 254 | ;;;###autoload | ||
| 255 | (defun executable-self-display () | 256 | (defun executable-self-display () |
| 256 | "Turn a text file into a self-displaying Un*x command. | 257 | "Turn a text file into a self-displaying Un*x command. |
| 257 | The magic number of such a command displays all lines but itself." | 258 | The magic number of such a command displays all lines but itself." |
| 259 | (declare (obsolete nil "25.1")) | ||
| 258 | (interactive) | 260 | (interactive) |
| 259 | (if (eq this-command 'executable-self-display) | 261 | (if (eq this-command 'executable-self-display) |
| 260 | (setq this-command 'executable-set-magic)) | 262 | (setq this-command 'executable-set-magic)) |