[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d9d04bf 2/2: * lisp/progmodes/executable.el (execut
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master d9d04bf 2/2: * lisp/progmodes/executable.el (executable-self-display): Obsolete. |
Date: |
Wed, 10 Jun 2015 20:24:37 +0000 |
branch: master
commit d9d04bfa49514692b752072d9e6559a05d24f336
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* lisp/progmodes/executable.el (executable-self-display): Obsolete.
No longer autoload.
* doc/misc/autotype.texi (Executables):
Undocument executable-self-display.
---
doc/misc/autotype.texi | 6 ------
lisp/progmodes/executable.el | 4 +++-
2 files changed, 3 insertions(+), 7 deletions(-)
diff --git a/doc/misc/autotype.texi b/doc/misc/autotype.texi
index acc98ed..a147d4b 100644
--- a/doc/misc/autotype.texi
+++ b/doc/misc/autotype.texi
@@ -517,12 +517,6 @@ is only done with @kbd{M-x executable-set-magic}. When
this is
called as a function, such as when Emacs puts a buffer in Shell script
mode. Otherwise you are always queried.
address@hidden executable-self-display
- @kbd{M-x executable-self-display} adds a magic number to the buffer, which
-will turn it into a self displaying text file, when called as a Un*x command.
-The ``interpreter'' used is @code{executable-self-display} with argument
address@hidden
-
@node Timestamps
@chapter Maintaining Timestamps in Modified Files
@cindex timestamps
diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el
index 367a2e7..50e4da9 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]."
:type 'string
:group 'executable)
+(make-obsolete-variable 'executable-self-display nil "25.1" 'set)
+
(defvar executable-font-lock-keywords
'(("\\`#!.*/\\([^ \t\n]+\\)" 1 font-lock-keyword-face t))
@@ -251,10 +253,10 @@ executable."
-;;;###autoload
(defun executable-self-display ()
"Turn a text file into a self-displaying Un*x command.
The magic number of such a command displays all lines but itself."
+ (declare (obsolete nil "25.1"))
(interactive)
(if (eq this-command 'executable-self-display)
(setq this-command 'executable-set-magic))