aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes/executable.el
diff options
context:
space:
mode:
authorGlenn Morris2015-06-10 16:24:32 -0400
committerGlenn Morris2015-06-10 16:24:32 -0400
commitd9d04bfa49514692b752072d9e6559a05d24f336 (patch)
tree94235754e1dc43f57182a80261b61032b4334658 /lisp/progmodes/executable.el
parentdfa1dc1c2b05eff6336cfac0f36c6137b4a57733 (diff)
downloademacs-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.el4
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.
257The magic number of such a command displays all lines but itself." 258The 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))