[Emacs-diffs] master d9d04bf 2/2: * lisp/progmodes/executable.el (executable-self-display): Obsolete.

[Glenn Morris]

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