Mercurial > hg > xemacs-beta
annotate lisp/obsolete.el @ 4911:7eec2a1f3412
Fix Visual Studio 6 build
| author | Vin Shelton <acs@xemacs.org> |
|---|---|
| date | Mon, 01 Feb 2010 17:08:41 -0500 |
| parents | 755ae5b97edb |
| children | c17c857e20bf |
| rev | line source |
|---|---|
| 428 | 1 ;;; obsolete.el --- obsoleteness support |
| 2 | |
| 3 ;; Copyright (C) 1985-1994, 1997 Free Software Foundation, Inc. | |
| 4 ;; Copyright (C) 1994, 1995 Amdahl Corporation. | |
| 5 ;; Copyright (C) 1995 Sun Microsystems. | |
| 2527 | 6 ;; Copyright (C) 2002, 2004 Ben Wing. |
| 428 | 7 |
| 8 ;; Maintainer: XEmacs Development Team | |
| 9 ;; Keywords: internal, dumped | |
| 10 | |
| 11 ;; This file is part of XEmacs. | |
| 12 | |
| 13 ;; XEmacs is free software; you can redistribute it and/or modify it | |
| 14 ;; under the terms of the GNU General Public License as published by | |
| 15 ;; the Free Software Foundation; either version 2, or (at your option) | |
| 16 ;; any later version. | |
| 17 | |
| 18 ;; XEmacs is distributed in the hope that it will be useful, but | |
| 19 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 21 ;; General Public License for more details. | |
| 22 | |
| 23 ;; You should have received a copy of the GNU General Public License | |
| 24 ;; along with XEmacs; see the file COPYING. If not, write to the | |
| 25 ;; Free Software Foundation, 59 Temple Place - Suite 330, | |
| 26 ;; Boston, MA 02111-1307, USA. | |
| 27 | |
| 28 ;;; Synched up with: Not in FSF. | |
| 29 | |
| 30 ;;; Commentary: | |
| 31 | |
| 32 ;; This file is dumped with XEmacs. | |
| 33 | |
| 34 ;; The obsoleteness support used to be scattered throughout various | |
| 35 ;; source files. We put the stuff in one place to remove the junkiness | |
| 36 ;; from other source files and to facilitate creating/updating things | |
| 37 ;; like sysdep.el. | |
| 38 | |
| 39 ;;; Code: | |
| 40 | |
| 41 (defsubst define-obsolete-function-alias (oldfun newfun) | |
| 42 "Define OLDFUN as an obsolete alias for function NEWFUN. | |
| 43 This makes calling OLDFUN equivalent to calling NEWFUN and marks OLDFUN | |
| 44 as obsolete." | |
| 45 (define-function oldfun newfun) | |
| 46 (make-obsolete oldfun newfun)) | |
| 47 | |
| 48 (defsubst define-compatible-function-alias (oldfun newfun) | |
| 49 "Define OLDFUN as a compatible alias for function NEWFUN. | |
| 50 This makes calling OLDFUN equivalent to calling NEWFUN and marks OLDFUN | |
| 51 as provided for compatibility only." | |
| 52 (define-function oldfun newfun) | |
| 53 (make-compatible oldfun newfun)) | |
| 54 | |
| 55 (defsubst define-obsolete-variable-alias (oldvar newvar) | |
| 56 "Define OLDVAR as an obsolete alias for variable NEWVAR. | |
| 57 This makes referencing or setting OLDVAR equivalent to referencing or | |
| 58 setting NEWVAR and marks OLDVAR as obsolete. | |
| 59 If OLDVAR was bound and NEWVAR was not, Set NEWVAR to OLDVAR. | |
| 60 | |
| 444 | 61 Note: Use this before any other references (defvar/defcustom) to NEWVAR." |
| 428 | 62 (let ((needs-setting (and (boundp oldvar) (not (boundp newvar)))) |
| 63 (value (and (boundp oldvar) (symbol-value oldvar)))) | |
| 64 (defvaralias oldvar newvar) | |
| 65 (make-obsolete-variable oldvar newvar) | |
| 66 (and needs-setting (set newvar value)))) | |
| 67 | |
| 68 (defsubst define-compatible-variable-alias (oldvar newvar) | |
| 69 "Define OLDVAR as a compatible alias for variable NEWVAR. | |
| 70 This makes referencing or setting OLDVAR equivalent to referencing or | |
| 71 setting NEWVAR and marks OLDVAR as provided for compatibility only." | |
| 72 (defvaralias oldvar newvar) | |
| 73 (make-compatible-variable oldvar newvar)) | |
| 74 | |
| 75 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; device stuff | |
| 76 | |
| 77 (make-compatible-variable 'window-system "use (console-type)") | |
| 78 | |
| 79 (defun x-display-color-p (&optional device) | |
| 80 "Return t if DEVICE is a color device." | |
| 81 (eq 'color (device-class device))) | |
| 82 (make-compatible 'x-display-color-p 'device-class) | |
| 83 | |
| 84 (define-function 'x-color-display-p 'x-display-color-p) | |
| 85 (make-compatible 'x-display-color-p 'device-class) | |
| 86 | |
| 87 (defun x-display-grayscale-p (&optional device) | |
| 88 "Return t if DEVICE is a grayscale device." | |
| 89 (eq 'grayscale (device-class device))) | |
| 90 (make-compatible 'x-display-grayscale-p 'device-class) | |
| 91 | |
| 92 (define-function 'x-grayscale-display-p 'x-display-grayscale-p) | |
| 93 (make-compatible 'x-display-grayscale-p 'device-class) | |
| 94 | |
| 95 (define-compatible-function-alias 'x-display-pixel-width 'device-pixel-width) | |
| 96 (define-compatible-function-alias 'x-display-pixel-height 'device-pixel-height) | |
| 97 (define-compatible-function-alias 'x-display-planes 'device-bitplanes) | |
| 98 (define-compatible-function-alias 'x-display-color-cells 'device-color-cells) | |
| 99 | |
| 100 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; events | |
| 101 | |
| 102 (define-obsolete-function-alias 'menu-event-p 'misc-user-event-p) | |
| 103 (make-obsolete-variable 'unread-command-char 'unread-command-events) | |
| 104 | |
| 105 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; extents | |
| 106 | |
| 107 (make-obsolete 'set-window-dot 'set-window-point) | |
| 108 | |
| 109 (define-obsolete-function-alias 'extent-buffer 'extent-object) | |
| 1024 | 110 (define-compatible-variable-alias 'parse-sexp-lookup-properties |
| 111 'lookup-syntax-properties) | |
| 428 | 112 |
| 113 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; frames | |
| 114 (defun frame-first-window (frame) | |
| 115 "Return the topmost, leftmost window of FRAME. | |
| 116 If omitted, FRAME defaults to the currently selected frame." | |
| 117 (frame-highest-window frame 0)) | |
| 118 (make-compatible 'frame-first-window 'frame-highest-window) | |
| 119 | |
| 120 (define-obsolete-variable-alias 'initial-frame-alist 'initial-frame-plist) | |
| 121 (define-obsolete-variable-alias 'minibuffer-frame-alist | |
| 122 'minibuffer-frame-plist) | |
| 123 (define-obsolete-variable-alias 'pop-up-frame-alist 'pop-up-frame-plist) | |
| 124 (define-obsolete-variable-alias 'special-display-frame-alist | |
| 125 'special-display-frame-plist) | |
| 126 | |
| 127 ;; Defined in C. | |
| 128 | |
| 129 (define-obsolete-variable-alias 'default-frame-alist 'default-frame-plist) | |
| 130 (define-obsolete-variable-alias 'default-x-frame-alist 'default-x-frame-plist) | |
| 131 (define-obsolete-variable-alias 'default-tty-frame-alist | |
| 132 'default-tty-frame-plist) | |
| 133 | |
| 134 (make-compatible 'frame-parameters 'frame-property) | |
| 135 (defun frame-parameters (&optional frame) | |
| 136 "Return the parameters-alist of frame FRAME. | |
| 137 It is a list of elements of the form (PARM . VALUE), where PARM is a symbol. | |
| 138 The meaningful PARMs depend on the kind of frame. | |
| 139 If FRAME is omitted, return information on the currently selected frame. | |
| 140 | |
| 141 See the variables `default-frame-plist', `default-x-frame-plist', and | |
| 142 `default-tty-frame-plist' for a description of the parameters meaningful | |
| 143 for particular types of frames." | |
| 144 (or frame (setq frame (selected-frame))) | |
| 145 ;; #### This relies on a `copy-sequence' of the user properties in | |
| 146 ;; `frame-properties'. Removing that would make `frame-properties' more | |
| 147 ;; efficient but this function less efficient, as we couldn't be | |
| 148 ;; destructive. Since most callers now use `frame-parameters', we'll | |
| 149 ;; do it this way. Should probably change this at some point in the | |
| 150 ;; future. | |
| 151 (destructive-plist-to-alist (frame-properties frame))) | |
| 152 | |
| 883 | 153 (make-compatible 'frame-parameter 'frame-property) |
| 154 (defun frame-parameter (frame parameter) | |
| 155 "Return FRAME's value for parameter PARAMETER. | |
| 156 If FRAME is nil, describe the currently selected frame." | |
| 157 (cdr (assq parameter (frame-parameters frame)))) | |
| 158 | |
| 428 | 159 (make-compatible 'modify-frame-parameters 'set-frame-properties) |
| 160 (defun modify-frame-parameters (frame alist) | |
| 161 "Modify the properties of frame FRAME according to ALIST. | |
| 162 ALIST is an alist of properties to change and their new values. | |
| 163 Each element of ALIST has the form (PARM . VALUE), where PARM is a symbol. | |
| 164 The meaningful PARMs depend on the kind of frame. | |
| 165 | |
| 166 See `set-frame-properties' for built-in property names." | |
| 167 ;; it would be nice to be destructive here but that's not safe. | |
| 168 (set-frame-properties frame (alist-to-plist alist))) | |
| 169 | |
| 170 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; faces | |
| 171 | |
| 172 (define-obsolete-function-alias 'list-faces-display 'edit-faces) | |
| 173 (define-obsolete-function-alias 'list-faces 'face-list) | |
| 174 | |
| 175 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; paths | |
| 176 | |
| 177 (defvar Info-default-directory-list nil | |
| 178 "This used to be the initial value of Info-directory-list. | |
| 179 If you want to change the locations where XEmacs looks for info files, | |
| 180 set Info-directory-list.") | |
| 181 (make-obsolete-variable 'Info-default-directory-list 'Info-directory-list) | |
| 182 | |
| 183 (defvar init-file-user nil | |
| 184 "This used to be the name of the user whose init file was read at startup.") | |
| 185 (make-obsolete-variable 'init-file-user 'load-user-init-file-p) | |
| 186 | |
| 1365 | 187 (define-obsolete-function-alias 'pui-add-install-directory |
| 188 'pui-set-local-package-get-directory) ; misleading name | |
| 428 | 189 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; hooks |
| 190 | |
| 191 (make-compatible-variable 'lisp-indent-hook 'lisp-indent-function) | |
| 192 (make-compatible-variable 'comment-indent-hook 'comment-indent-function) | |
| 193 (make-obsolete-variable 'temp-buffer-show-hook | |
| 194 'temp-buffer-show-function) | |
| 195 (make-obsolete-variable 'inhibit-local-variables | |
| 196 "use `enable-local-variables' (with the reversed sense).") | |
| 197 (make-obsolete-variable 'suspend-hooks 'suspend-hook) | |
| 198 (make-obsolete-variable 'first-change-function 'first-change-hook) | |
| 199 (make-obsolete-variable 'before-change-function | |
| 200 "use before-change-functions; which is a list of functions rather than a single function.") | |
| 201 (make-obsolete-variable 'after-change-function | |
| 202 "use after-change-functions; which is a list of functions rather than a single function.") | |
| 203 | |
| 204 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; insertion and deletion | |
| 205 | |
| 206 (define-compatible-function-alias 'insert-and-inherit 'insert) | |
| 207 (define-compatible-function-alias 'insert-before-markers-and-inherit | |
| 208 'insert-before-markers) | |
| 209 | |
| 210 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; keymaps | |
| 211 | |
| 212 (defun keymap-parent (keymap) | |
| 213 "Return the first parent of the given keymap." | |
| 214 (car (keymap-parents keymap))) | |
| 215 (make-compatible 'keymap-parent 'keymap-parents) | |
| 216 | |
| 217 (defun set-keymap-parent (keymap parent) | |
| 218 "Make the given keymap have (only) the given parent." | |
| 219 (set-keymap-parents keymap (if parent (list parent) '())) | |
| 220 parent) | |
| 221 (make-compatible 'set-keymap-parent 'set-keymap-parents) | |
| 222 | |
| 223 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; menu stuff | |
| 224 | |
|
4317
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
225 (defun add-menu-item (menu-path item-name function enabled-p &optional before) |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
226 "Obsolete. See the function `add-menu-button'." |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
227 (or item-name (error "must specify an item name")) |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
228 (declare-fboundp (add-menu-button menu-path (vector item-name function enabled-p) before))) |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
229 (make-obsolete 'add-menu-item 'add-menu-button) |
| 428 | 230 |
|
4317
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
231 (defun add-menu (menu-path menu-name menu-items &optional before) |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
232 "See the function `add-submenu'." |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
233 (or menu-name (error "must specify a menu name")) |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
234 (or menu-items (error "must specify some menu items")) |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
235 (declare-fboundp (add-submenu menu-path (cons menu-name menu-items) before))) |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
236 ;; Can't make this obsolete. easymenu depends on it. |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
237 (make-compatible 'add-menu 'add-submenu) |
| 428 | 238 |
|
4317
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
239 (define-obsolete-function-alias 'package-get-download-menu |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
240 'package-ui-download-menu) |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
241 |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
242 (unless (featurep 'menubar) |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
243 ;; Don't provide the last three functions unless the menubar feature is |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
244 ;; available. This approach (with #'unintern) avoids warnings about lost |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
245 ;; docstrings since make-docfile doesn't parse bytecode. |
|
4783
e29fcfd8df5f
Eliminate most core code byte-compile warnings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4677
diff
changeset
|
246 (mapc #'unintern '(add-menu-item add-menu package-get-download-menu))) |
| 1365 | 247 |
| 428 | 248 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; minibuffer |
| 249 | |
| 250 (define-compatible-function-alias 'read-minibuffer | |
| 251 'read-expression) ; misleading name | |
| 252 (define-compatible-function-alias 'read-input 'read-string) | |
| 253 | |
| 254 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; misc | |
| 255 | |
| 256 ;; (defun user-original-login-name () | |
| 257 ;; "Return user's login name from original login. | |
| 258 ;; This tries to remain unaffected by `su', by looking in environment variables." | |
| 259 ;; (or (getenv "LOGNAME") (getenv "USER") (user-login-name))) | |
| 260 (define-obsolete-function-alias 'user-original-login-name 'user-login-name) | |
| 261 | |
| 262 ; old names | |
| 263 (define-obsolete-function-alias 'show-buffer 'set-window-buffer) | |
| 264 (define-obsolete-function-alias 'buffer-flush-undo 'buffer-disable-undo) | |
| 265 (make-compatible 'eval-current-buffer 'eval-buffer) | |
| 266 (define-compatible-function-alias 'byte-code-function-p | |
| 267 'compiled-function-p) ;FSFmacs | |
| 268 | |
| 269 (define-obsolete-function-alias 'isearch-yank-x-selection | |
| 270 'isearch-yank-selection) | |
| 271 (define-obsolete-function-alias 'isearch-yank-x-clipboard | |
| 272 'isearch-yank-clipboard) | |
| 273 | |
| 274 ;; too bad there's not a way to check for aref, assq, and nconc | |
| 275 ;; being called on the values of functions known to return keymaps, | |
| 276 ;; or known to return vectors of events instead of strings... | |
| 277 | |
|
4885
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4783
diff
changeset
|
278 ;;; Yes there is; make compiler macros for aref, assq, nconc, checking that |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4783
diff
changeset
|
279 ;;; the car of the relevant argument is sane. |
|
6772ce4d982b
Fix hash tables, #'member*, #'assoc*, #'eql compiler macros if bignums
Aidan Kehoe <kehoea@parhasard.net>
parents:
4783
diff
changeset
|
280 |
| 428 | 281 (make-obsolete-variable 'executing-macro 'executing-kbd-macro) |
| 282 | |
| 718 | 283 (define-compatible-function-alias 'interactive-form |
| 863 | 284 'function-interactive) ;GNU 21.1 |
| 285 (define-compatible-function-alias 'assq-delete-all | |
| 286 'remassq) ;GNU 21.1 | |
| 718 | 287 |
| 883 | 288 (defun makehash (&optional test) |
| 289 "Create a new hash table. | |
| 290 Optional first argument TEST specifies how to compare keys in the table. | |
| 291 Predefined tests are `eq', `eql', and `equal'. Default is `eql'." | |
| 292 (make-hash-table :test test)) | |
| 293 (make-compatible 'makehash 'make-hash-table) | |
| 294 | |
| 295 (defun buffer-local-value (variable buffer) | |
| 296 "Return the value of VARIABLE in BUFFER. | |
| 297 If VARIABLE does not have a buffer-local binding in BUFFER, the value | |
| 298 is the default binding of variable." | |
| 299 (symbol-value-in-buffer variable buffer)) | |
| 300 (make-compatible 'buffer-local-value 'symbol-value-in-buffer) | |
| 301 | |
| 302 (define-compatible-function-alias 'line-beginning-position 'point-at-bol) | |
| 303 (define-compatible-function-alias 'line-end-position 'point-at-eol) | |
| 304 | |
| 428 | 305 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; modeline |
| 306 | |
| 307 (define-compatible-function-alias 'redraw-mode-line 'redraw-modeline) | |
| 308 (define-compatible-function-alias 'force-mode-line-update | |
| 309 'redraw-modeline) ;; FSF compatibility | |
| 310 (define-compatible-variable-alias 'mode-line-map 'modeline-map) | |
| 311 (define-compatible-variable-alias 'mode-line-buffer-identification | |
| 312 'modeline-buffer-identification) | |
| 313 (define-compatible-variable-alias 'mode-line-process 'modeline-process) | |
| 314 (define-compatible-variable-alias 'mode-line-modified 'modeline-modified) | |
| 315 (make-compatible-variable 'mode-line-inverse-video | |
| 316 "use set-face-highlight-p and set-face-reverse-p") | |
| 317 (define-compatible-variable-alias 'default-mode-line-format | |
| 318 'default-modeline-format) | |
| 319 (define-compatible-variable-alias 'mode-line-format 'modeline-format) | |
| 320 (define-compatible-variable-alias 'mode-line-menu 'modeline-menu) | |
| 321 | |
| 322 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; mouse | |
| 323 | |
| 324 ;;; (defun mouse-eval-last-sexpr (event) | |
| 325 ;;; (interactive "@e") | |
| 326 ;;; (save-excursion | |
| 327 ;;; (mouse-set-point event) | |
| 328 ;;; (eval-last-sexp nil))) | |
| 329 | |
| 330 (define-obsolete-function-alias 'mouse-eval-last-sexpr 'mouse-eval-sexp) | |
| 331 | |
| 332 (defun read-mouse-position (frame) | |
| 333 (cdr (mouse-position (frame-device frame)))) | |
| 334 (make-obsolete 'read-mouse-position 'mouse-position) | |
| 335 | |
| 336 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; redisplay | |
| 337 | |
| 338 (defun redraw-display (&optional device) | |
| 339 (if (eq device t) | |
| 340 (mapcar 'redisplay-device (device-list)) | |
| 341 (redisplay-device device))) | |
| 342 | |
| 777 | 343 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; strings |
| 344 | |
| 345 (define-obsolete-function-alias 'sref 'aref) | |
| 346 | |
| 347 (defun char-bytes (character) | |
| 348 "Return number of bytes a CHARACTER occupies in a string or buffer. | |
| 349 It always returns 1 in XEmacs, and in recent FSF Emacs versions." | |
| 350 1) | |
| 351 (make-obsolete 'char-bytes "This function always returns 1") | |
| 352 | |
| 860 | 353 (defun find-non-ascii-charset-string (string) |
| 354 "Return a list of charsets in the STRING except ascii. | |
| 355 It might be available for compatibility with Mule 2.3, | |
| 356 because its `find-charset-string' ignores ASCII charset." | |
| 4222 | 357 (delq 'ascii (and-fboundp #'charsets-in-string (charsets-in-string string)))) |
| 860 | 358 (make-obsolete 'find-non-ascii-charset-string |
| 359 "use (delq 'ascii (charsets-in-string STRING)) instead.") | |
| 360 | |
| 361 (defun find-non-ascii-charset-region (start end) | |
| 362 "Return a list of charsets except ascii in the region between START and END. | |
| 363 It might be available for compatibility with Mule 2.3, | |
| 364 because its `find-charset-string' ignores ASCII charset." | |
| 4222 | 365 (delq 'ascii (and-fboundp #'charsets-in-region |
| 366 (charsets-in-region start end)))) | |
| 860 | 367 (make-obsolete 'find-non-ascii-charset-region |
| 368 "use (delq 'ascii (charsets-in-region START END)) instead.") | |
| 818 | 369 |
| 3555 | 370 ;; < 21.5 compatibility, eg. https://bugzilla.redhat.com/201524#c2 |
| 371 (define-obsolete-function-alias 'string-to-char-list 'string-to-list) | |
| 372 | |
| 428 | 373 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; window-system objects |
| 374 | |
| 375 ;; the functionality of column.el has been moved into C | |
| 376 ;; Function obsoleted for XEmacs 20.0/February 1997. | |
| 377 (defalias 'display-column-mode 'column-number-mode) | |
| 378 | |
| 379 (defun x-color-values (color &optional frame) | |
| 380 "Return a description of the color named COLOR on frame FRAME. | |
| 381 The value is a list of integer RGB values--(RED GREEN BLUE). | |
| 382 These values appear to range from 0 to 65280 or 65535, depending | |
| 383 on the system; white is (65280 65280 65280) or (65535 65535 65535). | |
| 384 If FRAME is omitted or nil, use the selected frame." | |
| 385 (color-instance-rgb-components (make-color-instance color))) | |
| 386 (make-compatible 'x-color-values 'color-instance-rgb-components) | |
| 387 | |
| 2527 | 388 (make-obsolete 'mswindows-color-list 'color-list) |
| 389 (make-obsolete 'tty-color-list 'color-list) | |
| 390 (make-compatible 'list-fonts 'font-list) | |
| 391 | |
| 428 | 392 ;; Two loser functions which shouldn't be used. |
| 393 (make-obsolete 'following-char 'char-after) | |
| 394 (make-obsolete 'preceding-char 'char-before) | |
| 395 | |
| 396 ;; Keywords already do The Right Thing in XEmacs | |
| 397 (make-compatible 'define-widget-keywords "Just use them") | |
| 398 | |
| 399 (make-obsolete 'function-called-at-point 'function-at-point) | |
| 400 | |
|
4905
755ae5b97edb
Change "special form" to "special operator" in our sources.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4885
diff
changeset
|
401 ;; As of 21.5, #'throw is a special operator. This makes bytecode using it |
|
4677
8f1ee2d15784
Support full Common Lisp multiple values in C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4317
diff
changeset
|
402 ;; compiled for 21.4 fail; making this function available works around that. |
|
8f1ee2d15784
Support full Common Lisp multiple values in C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4317
diff
changeset
|
403 (defun obsolete-throw (tag value) |
|
8f1ee2d15784
Support full Common Lisp multiple values in C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4317
diff
changeset
|
404 "Ugly compatibility hack. |
|
8f1ee2d15784
Support full Common Lisp multiple values in C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4317
diff
changeset
|
405 |
|
8f1ee2d15784
Support full Common Lisp multiple values in C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4317
diff
changeset
|
406 See the implementation of #'funcall in eval.c. This should be removed once |
|
8f1ee2d15784
Support full Common Lisp multiple values in C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4317
diff
changeset
|
407 we no longer encounter bytecode from 21.4." |
|
8f1ee2d15784
Support full Common Lisp multiple values in C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4317
diff
changeset
|
408 (throw tag value)) |
|
8f1ee2d15784
Support full Common Lisp multiple values in C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4317
diff
changeset
|
409 |
|
8f1ee2d15784
Support full Common Lisp multiple values in C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4317
diff
changeset
|
410 (make-obsolete |
|
8f1ee2d15784
Support full Common Lisp multiple values in C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4317
diff
changeset
|
411 'obsolete-throw |
|
8f1ee2d15784
Support full Common Lisp multiple values in C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4317
diff
changeset
|
412 "it says `obsolete' in the name, you know you shouldn't be using this.") |
|
8f1ee2d15784
Support full Common Lisp multiple values in C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4317
diff
changeset
|
413 |
| 428 | 414 (provide 'obsolete) |
| 415 ;;; obsolete.el ends here |