Mercurial > hg > xemacs-beta

comparison lisp/obsolete.el @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 41ff10fd062f
children ca9a9ec9c1c1
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 ;; General Public License for more details. 20 ;; General Public License for more details.
21 21
22 ;; You should have received a copy of the GNU General Public License 22 ;; You should have received a copy of the GNU General Public License
23 ;; along with XEmacs; see the file COPYING. If not, write to the 23 ;; along with XEmacs; see the file COPYING. If not, write to the
24 ;; Free Software Foundation, 59 Temple Place - Suite 330, 24 ;; Free Software Foundation, 59 Temple Place - Suite 330,
25 ;; Boston, MA 02111-1307, USA. 25 ;; Boston, MA 02111-1307, USA.
26 26
27 ;;; Synched up with: Not in FSF. 27 ;;; Synched up with: Not in FSF.
28 28
52 (make-compatible oldfun newfun)) 52 (make-compatible oldfun newfun))
53 53
54 (defsubst define-obsolete-variable-alias (oldvar newvar) 54 (defsubst define-obsolete-variable-alias (oldvar newvar)
55 "Define OLDVAR as an obsolete alias for variable NEWVAR. 55 "Define OLDVAR as an obsolete alias for variable NEWVAR.
56 This makes referencing or setting OLDVAR equivalent to referencing or 56 This makes referencing or setting OLDVAR equivalent to referencing or
57 setting NEWVAR and marks OLDVAR as obsolete. 57 setting NEWVAR and marks OLDVAR as obsolete.
58 If OLDVAR was bound and NEWVAR was not, Set NEWVAR to OLDVAR. 58 If OLDVAR was bound and NEWVAR was not, Set NEWVAR to OLDVAR.
59 59
60 Note: Use this before any other references (defvar/defcustom) to NEWVAR" 60 Note: Use this before any other references (defvar/defcustom) to NEWVAR"
61 (let ((needs-setting (and (boundp oldvar) (not (boundp newvar)))) 61 (let ((needs-setting (and (boundp oldvar) (not (boundp newvar))))
62 (value (and (boundp oldvar) (symbol-value oldvar)))) 62 (value (and (boundp oldvar) (symbol-value oldvar))))
76 (make-compatible-variable 'window-system "use (console-type)") 76 (make-compatible-variable 'window-system "use (console-type)")
77 (make-obsolete-variable 'meta-flag 77 (make-obsolete-variable 'meta-flag
78 "use the `set-input-mode' function instead.") 78 "use the `set-input-mode' function instead.")
79 79
80 (defun x-display-color-p (&optional device) 80 (defun x-display-color-p (&optional device)
81 "Returns non-nil if DEVICE is a color device." 81 "Return t if DEVICE is a color device."
82 (eq 'color (device-class device))) 82 (eq 'color (device-class device)))
83 (make-compatible 'x-display-color-p 'device-class) 83 (make-compatible 'x-display-color-p 'device-class)
84 84
85 (define-function 'x-color-display-p 'x-display-color-p) 85 (define-function 'x-color-display-p 'x-display-color-p)
86 (make-compatible 'x-display-color-p 'device-class) 86 (make-compatible 'x-display-color-p 'device-class)
87 87
88 (defun x-display-grayscale-p (&optional device) 88 (defun x-display-grayscale-p (&optional device)
89 "Returns non-nil if DEVICE is a grayscale device." 89 "Return t if DEVICE is a grayscale device."
90 (eq 'grayscale (device-class device))) 90 (eq 'grayscale (device-class device)))
91 (make-compatible 'x-display-grayscale-p 'device-class) 91 (make-compatible 'x-display-grayscale-p 'device-class)
92 92
93 (define-function 'x-grayscale-display-p 'x-display-grayscale-p) 93 (define-function 'x-grayscale-display-p 'x-display-grayscale-p)
94 (make-compatible 'x-display-grayscale-p 'device-class) 94 (make-compatible 'x-display-grayscale-p 'device-class)
108 (make-obsolete 'sleep-for-millisecs "use sleep-for with a float") 108 (make-obsolete 'sleep-for-millisecs "use sleep-for with a float")
109 109
110 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; extents 110 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; extents
111 111
112 (defun extent-data (extent) 112 (defun extent-data (extent)
113 "Obsolete. Returns the `data' property of the given extent." 113 "Obsolete. Return the `data' property of EXTENT."
114 (extent-property extent 'data)) 114 (extent-property extent 'data))
115 (make-obsolete 'set-window-dot 'set-window-point) 115 (make-obsolete 'set-window-dot 'set-window-point)
116 116
117 (defun set-extent-data (extent data) 117 (defun set-extent-data (extent data)
118 "Obsolete. Sets the `data' property of the given extent." 118 "Obsolete. Set the `data' property of EXTENT."
119 (set-extent-property extent 'data data)) 119 (set-extent-property extent 'data data))
120 (make-obsolete 'set-extent-data 'set-extent-property) 120 (make-obsolete 'set-extent-data 'set-extent-property)
121 121
122 (define-obsolete-function-alias 'extent-buffer 'extent-object) 122 (define-obsolete-function-alias 'extent-buffer 'extent-object)
123 123
251 (make-frame (append parms (list (list 'window-id window-id))) 251 (make-frame (append parms (list (list 'window-id window-id)))
252 (selected-device))) 252 (selected-device)))
253 (make-obsolete 'x-create-screen 'make-frame) 253 (make-obsolete 'x-create-screen 'make-frame)
254 254
255 (defun frame-first-window (frame) 255 (defun frame-first-window (frame)
256 "Returns the topmost, leftmost window of FRAME. 256 "Return the topmost, leftmost window of FRAME.
257 If omitted, FRAME defaults to the currently selected frame." 257 If omitted, FRAME defaults to the currently selected frame."
258 (frame-highest-window frame 0)) 258 (frame-highest-window frame 0))
259 (make-compatible 'frame-first-window 'frame-highest-window) 259 (make-compatible 'frame-first-window 'frame-highest-window)
260 260
261 (define-obsolete-variable-alias 'initial-frame-alist 'initial-frame-plist) 261 (define-obsolete-variable-alias 'initial-frame-alist 'initial-frame-plist)
338 'insert-before-markers) 338 'insert-before-markers)
339 339
340 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; keymaps 340 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; keymaps
341 341
342 (defun keymap-parent (keymap) 342 (defun keymap-parent (keymap)
343 "Returns the first parent of the given keymap." 343 "Return the first parent of the given keymap."
344 (car (keymap-parents keymap))) 344 (car (keymap-parents keymap)))
345 (make-compatible 'keymap-parent 'keymap-parents) 345 (make-compatible 'keymap-parent 'keymap-parents)
346 346
347 (defun set-keymap-parent (keymap parent) 347 (defun set-keymap-parent (keymap parent)
348 "Makes the given keymap have (only) the given parent." 348 "Make the given keymap have (only) the given parent."
349 (set-keymap-parents keymap (if parent (list parent) '())) 349 (set-keymap-parents keymap (if parent (list parent) '()))
350 parent) 350 parent)
351 (make-compatible 'set-keymap-parent 'set-keymap-parents) 351 (make-compatible 'set-keymap-parent 'set-keymap-parents)
352 352
353 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; menu stuff 353 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; menu stuff