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.
777
+ − 6 ;; Copyright (C) 2002 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
+ − 225 (defun add-menu-item (menu-path item-name function enabled-p &optional before)
+ − 226 "Obsolete. See the function `add-menu-button'."
+ − 227 (or item-name (error "must specify an item name"))
+ − 228 (add-menu-button menu-path (vector item-name function enabled-p) before))
+ − 229 (make-obsolete 'add-menu-item 'add-menu-button)
+ − 230
+ − 231 (defun add-menu (menu-path menu-name menu-items &optional before)
+ − 232 "See the function `add-submenu'."
442
+ − 233 (or menu-name (error "must specify a menu name"))
+ − 234 (or menu-items (error "must specify some menu items"))
428
+ − 235 (add-submenu menu-path (cons menu-name menu-items) before))
+ − 236 ;; Can't make this obsolete. easymenu depends on it.
+ − 237 (make-compatible 'add-menu 'add-submenu)
+ − 238
1365
+ − 239 (define-obsolete-function-alias 'package-get-download-menu
+ − 240 'package-ui-download-menu)
+ − 241
428
+ − 242 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; minibuffer
+ − 243
+ − 244 (define-compatible-function-alias 'read-minibuffer
+ − 245 'read-expression) ; misleading name
+ − 246 (define-compatible-function-alias 'read-input 'read-string)
+ − 247
+ − 248 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; misc
+ − 249
+ − 250 ;; (defun user-original-login-name ()
+ − 251 ;; "Return user's login name from original login.
+ − 252 ;; This tries to remain unaffected by `su', by looking in environment variables."
+ − 253 ;; (or (getenv "LOGNAME") (getenv "USER") (user-login-name)))
+ − 254 (define-obsolete-function-alias 'user-original-login-name 'user-login-name)
+ − 255
+ − 256 ; old names
+ − 257 (define-obsolete-function-alias 'show-buffer 'set-window-buffer)
+ − 258 (define-obsolete-function-alias 'buffer-flush-undo 'buffer-disable-undo)
+ − 259 (make-compatible 'eval-current-buffer 'eval-buffer)
+ − 260 (define-compatible-function-alias 'byte-code-function-p
+ − 261 'compiled-function-p) ;FSFmacs
+ − 262
+ − 263 (define-obsolete-function-alias 'isearch-yank-x-selection
+ − 264 'isearch-yank-selection)
+ − 265 (define-obsolete-function-alias 'isearch-yank-x-clipboard
+ − 266 'isearch-yank-clipboard)
+ − 267
+ − 268 ;; too bad there's not a way to check for aref, assq, and nconc
+ − 269 ;; being called on the values of functions known to return keymaps,
+ − 270 ;; or known to return vectors of events instead of strings...
+ − 271
+ − 272 (make-obsolete-variable 'executing-macro 'executing-kbd-macro)
+ − 273
718
+ − 274 (define-compatible-function-alias 'interactive-form
863
+ − 275 'function-interactive) ;GNU 21.1
+ − 276 (define-compatible-function-alias 'assq-delete-all
+ − 277 'remassq) ;GNU 21.1
718
+ − 278
883
+ − 279 (defun makehash (&optional test)
+ − 280 "Create a new hash table.
+ − 281 Optional first argument TEST specifies how to compare keys in the table.
+ − 282 Predefined tests are `eq', `eql', and `equal'. Default is `eql'."
+ − 283 (make-hash-table :test test))
+ − 284 (make-compatible 'makehash 'make-hash-table)
+ − 285
+ − 286 (defun buffer-local-value (variable buffer)
+ − 287 "Return the value of VARIABLE in BUFFER.
+ − 288 If VARIABLE does not have a buffer-local binding in BUFFER, the value
+ − 289 is the default binding of variable."
+ − 290 (symbol-value-in-buffer variable buffer))
+ − 291 (make-compatible 'buffer-local-value 'symbol-value-in-buffer)
+ − 292
+ − 293 (define-compatible-function-alias 'line-beginning-position 'point-at-bol)
+ − 294 (define-compatible-function-alias 'line-end-position 'point-at-eol)
+ − 295
428
+ − 296 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; modeline
+ − 297
+ − 298 (define-compatible-function-alias 'redraw-mode-line 'redraw-modeline)
+ − 299 (define-compatible-function-alias 'force-mode-line-update
+ − 300 'redraw-modeline) ;; FSF compatibility
+ − 301 (define-compatible-variable-alias 'mode-line-map 'modeline-map)
+ − 302 (define-compatible-variable-alias 'mode-line-buffer-identification
+ − 303 'modeline-buffer-identification)
+ − 304 (define-compatible-variable-alias 'mode-line-process 'modeline-process)
+ − 305 (define-compatible-variable-alias 'mode-line-modified 'modeline-modified)
+ − 306 (make-compatible-variable 'mode-line-inverse-video
+ − 307 "use set-face-highlight-p and set-face-reverse-p")
+ − 308 (define-compatible-variable-alias 'default-mode-line-format
+ − 309 'default-modeline-format)
+ − 310 (define-compatible-variable-alias 'mode-line-format 'modeline-format)
+ − 311 (define-compatible-variable-alias 'mode-line-menu 'modeline-menu)
+ − 312
+ − 313 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; mouse
+ − 314
+ − 315 ;;; (defun mouse-eval-last-sexpr (event)
+ − 316 ;;; (interactive "@e")
+ − 317 ;;; (save-excursion
+ − 318 ;;; (mouse-set-point event)
+ − 319 ;;; (eval-last-sexp nil)))
+ − 320
+ − 321 (define-obsolete-function-alias 'mouse-eval-last-sexpr 'mouse-eval-sexp)
+ − 322
+ − 323 (defun read-mouse-position (frame)
+ − 324 (cdr (mouse-position (frame-device frame))))
+ − 325 (make-obsolete 'read-mouse-position 'mouse-position)
+ − 326
+ − 327 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; redisplay
+ − 328
+ − 329 (defun redraw-display (&optional device)
+ − 330 (if (eq device t)
+ − 331 (mapcar 'redisplay-device (device-list))
+ − 332 (redisplay-device device)))
+ − 333
777
+ − 334 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; strings
+ − 335
+ − 336 (define-obsolete-function-alias 'sref 'aref)
+ − 337
+ − 338 (defun char-bytes (character)
+ − 339 "Return number of bytes a CHARACTER occupies in a string or buffer.
+ − 340 It always returns 1 in XEmacs, and in recent FSF Emacs versions."
+ − 341 1)
+ − 342 (make-obsolete 'char-bytes "This function always returns 1")
+ − 343
860
+ − 344 (defun find-non-ascii-charset-string (string)
+ − 345 "Return a list of charsets in the STRING except ascii.
+ − 346 It might be available for compatibility with Mule 2.3,
+ − 347 because its `find-charset-string' ignores ASCII charset."
+ − 348 (delq 'ascii (charsets-in-string string)))
+ − 349 (make-obsolete 'find-non-ascii-charset-string
+ − 350 "use (delq 'ascii (charsets-in-string STRING)) instead.")
+ − 351
+ − 352 (defun find-non-ascii-charset-region (start end)
+ − 353 "Return a list of charsets except ascii in the region between START and END.
+ − 354 It might be available for compatibility with Mule 2.3,
+ − 355 because its `find-charset-string' ignores ASCII charset."
+ − 356 (delq 'ascii (charsets-in-region start end)))
+ − 357 (make-obsolete 'find-non-ascii-charset-region
+ − 358 "use (delq 'ascii (charsets-in-region START END)) instead.")
818
+ − 359
428
+ − 360 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; window-system objects
+ − 361
+ − 362 ;; the functionality of column.el has been moved into C
+ − 363 ;; Function obsoleted for XEmacs 20.0/February 1997.
+ − 364 (defalias 'display-column-mode 'column-number-mode)
+ − 365
+ − 366 (defun x-color-values (color &optional frame)
+ − 367 "Return a description of the color named COLOR on frame FRAME.
+ − 368 The value is a list of integer RGB values--(RED GREEN BLUE).
+ − 369 These values appear to range from 0 to 65280 or 65535, depending
+ − 370 on the system; white is (65280 65280 65280) or (65535 65535 65535).
+ − 371 If FRAME is omitted or nil, use the selected frame."
+ − 372 (color-instance-rgb-components (make-color-instance color)))
+ − 373 (make-compatible 'x-color-values 'color-instance-rgb-components)
+ − 374
+ − 375 ;; Two loser functions which shouldn't be used.
+ − 376 (make-obsolete 'following-char 'char-after)
+ − 377 (make-obsolete 'preceding-char 'char-before)
+ − 378
+ − 379 ;; Keywords already do The Right Thing in XEmacs
+ − 380 (make-compatible 'define-widget-keywords "Just use them")
+ − 381
+ − 382 (make-obsolete 'function-called-at-point 'function-at-point)
+ − 383
+ − 384 (provide 'obsolete)
+ − 385 ;;; obsolete.el ends here
