mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-11 00:30:17 -08:00
Code Issues Projects Releases Wiki Activity

Made executing-macro, before-change-function, after-change-function and font-lock-doc-string-face obsolete.

Browse source
This commit is contained in:
Simon Marshall 1995-07-09 13:01:31 +00:00
parent 8ebb39c016
commit 591655c7ab
1 changed files with 24 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

42
lisp/emacs-lisp/bytecomp.el
View file

@ -3266,10 +3266,16 @@ For example, invoke `emacs -batch -f batch-byte-recompile-directory .'."
(make-obsolete-variable 'unread-command-char (make-obsolete-variable 'unread-command-char
"use unread-command-events instead. That variable is a list of events to reread, so it now uses nil to mean `no event', instead of -1.") "use unread-command-events instead. That variable is a list of events to reread, so it now uses nil to mean `no event', instead of -1.")
(make-obsolete-variable 'unread-command-event (make-obsolete-variable 'unread-command-event
"use unread-command-events; this is now a list of events.") "use unread-command-events; which is a list of events rather than a single event.")
(make-obsolete-variable 'suspend-hooks 'suspend-hook) (make-obsolete-variable 'suspend-hooks 'suspend-hook)
(make-obsolete-variable 'comment-indent-hook 'comment-indent-function) (make-obsolete-variable 'comment-indent-hook 'comment-indent-function)
(make-obsolete-variable 'meta-flag "Use the set-input-mode function instead.") (make-obsolete-variable 'meta-flag "Use the set-input-mode function instead.")
(make-obsolete-variable 'executing-macro 'executing-kbd-macro)
(make-obsolete-variable 'before-change-function
"use before-change-functions; which is a list of functions rather than a single function.")
(make-obsolete-variable 'after-change-function
"use after-change-functions; which is a list of functions rather than a single function.")
(make-obsolete-variable 'font-lock-doc-string-face 'font-lock-string-face)
(provide 'byte-compile) (provide 'byte-compile)
(provide 'bytecomp) (provide 'bytecomp)
@ -3307,22 +3313,22 @@ For example, invoke `emacs -batch -f batch-byte-recompile-directory .'."
;; itself, compile some of its most used recursive functions (at load time). ;; itself, compile some of its most used recursive functions (at load time).
;; ;;
(eval-when-compile (eval-when-compile
(or (byte-code-function-p (symbol-function 'byte-compile-form)) (or (byte-code-function-p (symbol-function 'byte-compile-form))
(assq 'byte-code (symbol-function 'byte-compile-form)) (assq 'byte-code (symbol-function 'byte-compile-form))
(let ((byte-optimize nil) ; do it fast (let ((byte-optimize nil) ; do it fast
(byte-compile-warnings nil)) (byte-compile-warnings nil))
(mapcar '(lambda (x) (mapcar '(lambda (x)
(or noninteractive (message "compiling %s..." x)) (or noninteractive (message "compiling %s..." x))
(byte-compile x) (byte-compile x)
(or noninteractive (message "compiling %s...done" x))) (or noninteractive (message "compiling %s...done" x)))
'(byte-compile-normal-call '(byte-compile-normal-call
byte-compile-form byte-compile-form
byte-compile-body byte-compile-body
;; Inserted some more than necessary, to speed it up. ;; Inserted some more than necessary, to speed it up.
byte-compile-top-level byte-compile-top-level
byte-compile-out-toplevel byte-compile-out-toplevel
byte-compile-constant byte-compile-constant
byte-compile-variable-ref)))) byte-compile-variable-ref))))
nil) nil)
;;; bytecomp.el ends here ;;; bytecomp.el ends here