Mercurial > hg > xemacs-beta

comparison lisp/obsolete.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents 6330739388db
children a4f53d9b3154
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
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)
95 95
96 (define-compatible-function-alias 'x-display-pixel-width 'device-pixel-width) 96 (define-compatible-function-alias 'x-display-pixel-width 'device-pixel-width)
97 (define-compatible-function-alias 'x-display-pixel-height 97 (define-compatible-function-alias 'x-display-pixel-height 'device-pixel-height)
98 'device-pixel-height) 98 (define-compatible-function-alias 'x-display-planes 'device-bitplanes)
99 (define-compatible-function-alias 'x-display-planes 'device-bitplanes) 99 (define-compatible-function-alias 'x-display-color-cells 'device-color-cells)
100 (define-compatible-function-alias 'x-display-color-cells 'device-color-cells)
101 100
102 (define-obsolete-function-alias 'baud-rate 'device-baud-rate) 101 (define-obsolete-function-alias 'baud-rate 'device-baud-rate)
103 102
104 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; events 103 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; events
105 104
120 (make-obsolete 'set-extent-data 'set-extent-property) 119 (make-obsolete 'set-extent-data 'set-extent-property)
121 120
122 (define-obsolete-function-alias 'extent-buffer 'extent-object) 121 (define-obsolete-function-alias 'extent-buffer 'extent-object)
123 122
124 (defun set-extent-attribute (extent attr &optional clearp) 123 (defun set-extent-attribute (extent attr &optional clearp)
125 "" ;; obsoleteness info will be displayed, so no need for anything more. 124 ;; obsoleteness info will be displayed, so no need for docstring.
126 (cond ((eq attr 'write-protected) 125 (cond ((eq attr 'write-protected)
127 (set-extent-property extent 'read-only t)) 126 (set-extent-property extent 'read-only t))
128 ((eq attr 'unhighlight) 127 ((eq attr 'unhighlight)
129 (set-extent-property extent 'mouse-face nil)) 128 (set-extent-property extent 'mouse-face nil))
130 ((eq attr 'writable) 129 ((eq attr 'writable)
134 (t 133 (t
135 (set-extent-property extent attr t)))) 134 (set-extent-property extent attr t))))
136 (make-obsolete 'set-extent-attribute 'set-extent-property) 135 (make-obsolete 'set-extent-attribute 'set-extent-property)
137 136
138 (defun extent-glyph (extent) 137 (defun extent-glyph (extent)
139 "" ;; obsoleteness info will be displayed, so no need for anything more. 138 ;; obsoleteness info will be displayed, so no need for docstring.
140 (or (extent-begin-glyph extent) 139 (or (extent-begin-glyph extent)
141 (extent-end-glyph extent))) 140 (extent-end-glyph extent)))
142 (make-obsolete 'extent-glyph 141 (make-obsolete 'extent-glyph
143 "use `extent-begin-glyph' or `extent-end-glyph' instead.") 142 "use `extent-begin-glyph' or `extent-end-glyph' instead.")
144 143
145 (defun extent-layout (extent) 144 (defun extent-layout (extent)
146 "" ;; obsoleteness info will be displayed, so no need for anything more. 145 ;; obsoleteness info will be displayed, so no need for docstring.
147 (extent-begin-glyph-layout extent)) 146 (extent-begin-glyph-layout extent))
148 (make-obsolete 'extent-layout 147 (make-obsolete 'extent-layout
149 "use `extent-begin-glyph-layout' or `extent-end-glyph-layout' instead.") 148 "use `extent-begin-glyph-layout' or `extent-end-glyph-layout' instead.")
150 149
151 (defun set-extent-layout (extent layout) 150 (defun set-extent-layout (extent layout)
152 "" ;; obsoleteness info will be displayed, so no need for anything more. 151 ;; obsoleteness info will be displayed, so no need for docstring.
153 (set-extent-begin-glyph-layout extent layout)) 152 (set-extent-begin-glyph-layout extent layout))
154 (make-obsolete 'set-extent-layout 153 (make-obsolete 'set-extent-layout
155 "use `set-extent-begin-glyph-layout' or `set-extent-end-glyph-layout' instead.") 154 "use `set-extent-begin-glyph-layout' or `set-extent-end-glyph-layout' instead.")
156 155
157 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; frames 156 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; frames
243 (define-obsolete-variable-alias 'default-screen-alist 'default-frame-alist) 242 (define-obsolete-variable-alias 'default-screen-alist 'default-frame-alist)
244 (define-obsolete-variable-alias 'default-screen-name 'default-frame-name) 243 (define-obsolete-variable-alias 'default-screen-name 'default-frame-name)
245 (define-obsolete-variable-alias 'x-screen-defaults 'default-x-frame-alist) 244 (define-obsolete-variable-alias 'x-screen-defaults 'default-x-frame-alist)
246 245
247 (defun x-create-screen (parms window-id) 246 (defun x-create-screen (parms window-id)
248 "" 247 ;; obsoleteness info will be displayed, so no need for docstring.
249 (if (not (eq 'x (device-type (selected-device)))) 248 (if (not (eq 'x (device-type (selected-device))))
250 (error "Cannot create X frames on non-X device")) 249 (error "Cannot create X frames on non-X device"))
251 (make-frame (append parms (list (list 'window-id window-id))) 250 (make-frame (append parms (list (list 'window-id window-id)))
252 (selected-device))) 251 (selected-device)))
253 (make-obsolete 'x-create-screen 'make-frame) 252 (make-obsolete 'x-create-screen 'make-frame)