projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update.
[chise/xemacs-chise.git-]
/
lisp
/
bytecomp-runtime.el
diff --git
a/lisp/bytecomp-runtime.el
b/lisp/bytecomp-runtime.el
index
95d8c31
..
7c198d8
100644
(file)
--- a/
lisp/bytecomp-runtime.el
+++ b/
lisp/bytecomp-runtime.el
@@
-2,7
+2,7
@@
;; Copyright (C) 1992, 1997 Free Software Foundation, Inc.
;; Copyright (C) 1992, 1997 Free Software Foundation, Inc.
-;; Author: Jamie Zawinski <jwz@netscape.com>
+;; Author: Jamie Zawinski <jwz@jwz.org>
;; Author: Hallvard Furuseth <hbf@ulrik.uio.no>
;; Maintainer: XEmacs Development Team
;; Keywords: internal, dumped
;; Author: Hallvard Furuseth <hbf@ulrik.uio.no>
;; Maintainer: XEmacs Development Team
;; Keywords: internal, dumped
@@
-91,10
+91,12
@@
They will only be compiled open-coded when `byte-optimize' is true."
; (list 'put (list 'quote name)
; ''byte-optimizer ''byte-compile-inline-expand))))
; (list 'put (list 'quote name)
; ''byte-optimizer ''byte-compile-inline-expand))))
-(defun make-obsolete (fn new)
- "Make the byte-compiler warn that FUNCTION is obsolete.
+(defun make-obsolete (fn new &optional when)
+ "Make the byte-compiler warn that function FN is obsolete.
The warning will say that NEW should be used instead.
The warning will say that NEW should be used instead.
-If NEW is a string, that is the `use instead' message."
+If NEW is a string, that is the `use instead' message.
+If provided, WHEN should be a string indicating when the function
+was first made obsolete, for example a date or a release number."
(interactive "aMake function obsolete: \nxObsoletion replacement: ")
(let ((handler (get fn 'byte-compile)))
(if (eq 'byte-compile-obsolete handler)
(interactive "aMake function obsolete: \nxObsoletion replacement: ")
(let ((handler (get fn 'byte-compile)))
(if (eq 'byte-compile-obsolete handler)
@@
-103,10
+105,12
@@
If NEW is a string, that is the `use instead' message."
(put fn 'byte-compile 'byte-compile-obsolete)))
fn)
(put fn 'byte-compile 'byte-compile-obsolete)))
fn)
-(defun make-obsolete-variable (var new)
- "Make the byte-compiler warn that VARIABLE is obsolete,
+(defun make-obsolete-variable (var new &optional when)
+ "Make the byte-compiler warn that variable VAR is obsolete,
and NEW should be used instead. If NEW is a string, then that is the
and NEW should be used instead. If NEW is a string, then that is the
-`use instead' message."
+`use instead' message.
+If provided, WHEN should be a string indicating when the variable
+was first made obsolete, for example a date or a release number."
(interactive
(list
(let ((str (completing-read "Make variable obsolete: " obarray 'boundp t)))
(interactive
(list
(let ((str (completing-read "Make variable obsolete: " obarray 'boundp t)))
@@
-119,7
+123,7
@@
and NEW should be used instead. If NEW is a string, then that is the
;; By overwhelming demand, we separate out truly obsolete symbols from
;; those that are present for GNU Emacs compatibility.
(defun make-compatible (fn new)
;; By overwhelming demand, we separate out truly obsolete symbols from
;; those that are present for GNU Emacs compatibility.
(defun make-compatible (fn new)
- "Make the byte-compiler know that FUNCTION is provided for compatibility.
+ "Make the byte-compiler know that function FN is provided for compatibility.
The warning will say that NEW should be used instead.
If NEW is a string, that is the `use instead' message."
(interactive "aMake function compatible: \nxCompatible replacement: ")
The warning will say that NEW should be used instead.
If NEW is a string, that is the `use instead' message."
(interactive "aMake function compatible: \nxCompatible replacement: ")
@@
-131,7
+135,7
@@
If NEW is a string, that is the `use instead' message."
fn)
(defun make-compatible-variable (var new)
fn)
(defun make-compatible-variable (var new)
- "Make the byte-compiler know that VARIABLE is provided for compatibility.
+ "Make the byte-compiler know that variable VAR is provided for compatibility,
and NEW should be used instead. If NEW is a string, then that is the
`use instead' message."
(interactive
and NEW should be used instead. If NEW is a string, then that is the
`use instead' message."
(interactive