Mercurial > hg > xemacs-beta
annotate lisp/obsolete.el @ 5387:5f5d48053e86
Drop #'cl-finite-do, defalias #'cl-float-limits to #'ignore in dumped XEmacs
2011-03-29 Aidan Kehoe <kehoea@parhasard.net>
* cl-extra.el (cl-finite-do, cl-float-limits):
Don't make these available as functions in the dumped image (let
them be garbage-collected), since they're only called at dump
time.
* obsolete.el (cl-float-limits):
Make this an alias to #'identity (since it's called at dump time),
mark it as obsolete in 21.5.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 29 Mar 2011 23:27:46 +0100 |
| parents | ed74d2ca7082 |
| children | 248176c74e6b |
| 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. | |
| 5175 | 6 ;; Copyright (C) 2002, 2004, 2010 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 | |
| 5175 | 75 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; buffers |
| 76 | |
| 77 (define-obsolete-function-alias 'show-buffer 'set-window-buffer) | |
| 78 (define-obsolete-function-alias 'buffer-flush-undo 'buffer-disable-undo) | |
| 79 (make-compatible 'eval-current-buffer 'eval-buffer) | |
| 80 | |
| 81 (defun buffer-local-value (variable buffer) | |
| 82 "Return the value of VARIABLE in BUFFER. | |
| 83 If VARIABLE does not have a buffer-local binding in BUFFER, the value | |
| 84 is the default binding of variable." | |
| 85 (symbol-value-in-buffer variable buffer)) | |
| 86 (make-compatible 'buffer-local-value 'symbol-value-in-buffer) | |
| 87 | |
| 428 | 88 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; device stuff |
| 89 | |
| 90 (make-compatible-variable 'window-system "use (console-type)") | |
| 91 | |
| 92 (defun x-display-color-p (&optional device) | |
| 93 "Return t if DEVICE is a color device." | |
| 94 (eq 'color (device-class device))) | |
| 95 (make-compatible 'x-display-color-p 'device-class) | |
| 96 | |
| 97 (define-function 'x-color-display-p 'x-display-color-p) | |
| 98 (make-compatible 'x-display-color-p 'device-class) | |
| 99 | |
| 100 (defun x-display-grayscale-p (&optional device) | |
| 101 "Return t if DEVICE is a grayscale device." | |
| 102 (eq 'grayscale (device-class device))) | |
| 103 (make-compatible 'x-display-grayscale-p 'device-class) | |
| 104 | |
| 105 (define-function 'x-grayscale-display-p 'x-display-grayscale-p) | |
| 106 (make-compatible 'x-display-grayscale-p 'device-class) | |
| 107 | |
| 108 (define-compatible-function-alias 'x-display-pixel-width 'device-pixel-width) | |
| 109 (define-compatible-function-alias 'x-display-pixel-height 'device-pixel-height) | |
| 110 (define-compatible-function-alias 'x-display-planes 'device-bitplanes) | |
| 111 (define-compatible-function-alias 'x-display-color-cells 'device-color-cells) | |
| 112 | |
| 113 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; events | |
| 114 | |
| 115 (define-obsolete-function-alias 'menu-event-p 'misc-user-event-p) | |
| 116 (make-obsolete-variable 'unread-command-char 'unread-command-events) | |
| 117 | |
| 118 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; extents | |
| 119 | |
| 120 (make-obsolete 'set-window-dot 'set-window-point) | |
| 121 | |
| 122 (define-obsolete-function-alias 'extent-buffer 'extent-object) | |
| 1024 | 123 (define-compatible-variable-alias 'parse-sexp-lookup-properties |
| 124 'lookup-syntax-properties) | |
| 428 | 125 |
| 126 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; frames | |
| 5175 | 127 |
| 428 | 128 (defun frame-first-window (frame) |
| 129 "Return the topmost, leftmost window of FRAME. | |
| 130 If omitted, FRAME defaults to the currently selected frame." | |
| 131 (frame-highest-window frame 0)) | |
| 132 (make-compatible 'frame-first-window 'frame-highest-window) | |
| 133 | |
| 134 (define-obsolete-variable-alias 'initial-frame-alist 'initial-frame-plist) | |
| 135 (define-obsolete-variable-alias 'minibuffer-frame-alist | |
| 136 'minibuffer-frame-plist) | |
| 137 (define-obsolete-variable-alias 'pop-up-frame-alist 'pop-up-frame-plist) | |
| 138 (define-obsolete-variable-alias 'special-display-frame-alist | |
| 139 'special-display-frame-plist) | |
| 140 | |
| 141 ;; Defined in C. | |
| 142 | |
| 143 (define-obsolete-variable-alias 'default-frame-alist 'default-frame-plist) | |
| 144 (define-obsolete-variable-alias 'default-x-frame-alist 'default-x-frame-plist) | |
| 145 (define-obsolete-variable-alias 'default-tty-frame-alist | |
| 146 'default-tty-frame-plist) | |
| 147 | |
| 148 (make-compatible 'frame-parameters 'frame-property) | |
| 149 (defun frame-parameters (&optional frame) | |
| 150 "Return the parameters-alist of frame FRAME. | |
| 151 It is a list of elements of the form (PARM . VALUE), where PARM is a symbol. | |
| 152 The meaningful PARMs depend on the kind of frame. | |
| 153 If FRAME is omitted, return information on the currently selected frame. | |
| 154 | |
| 155 See the variables `default-frame-plist', `default-x-frame-plist', and | |
| 156 `default-tty-frame-plist' for a description of the parameters meaningful | |
| 157 for particular types of frames." | |
| 158 (or frame (setq frame (selected-frame))) | |
| 159 ;; #### This relies on a `copy-sequence' of the user properties in | |
| 160 ;; `frame-properties'. Removing that would make `frame-properties' more | |
| 161 ;; efficient but this function less efficient, as we couldn't be | |
| 162 ;; destructive. Since most callers now use `frame-parameters', we'll | |
| 163 ;; do it this way. Should probably change this at some point in the | |
| 164 ;; future. | |
| 165 (destructive-plist-to-alist (frame-properties frame))) | |
| 166 | |
| 883 | 167 (make-compatible 'frame-parameter 'frame-property) |
| 168 (defun frame-parameter (frame parameter) | |
| 169 "Return FRAME's value for parameter PARAMETER. | |
| 170 If FRAME is nil, describe the currently selected frame." | |
| 171 (cdr (assq parameter (frame-parameters frame)))) | |
| 172 | |
| 428 | 173 (make-compatible 'modify-frame-parameters 'set-frame-properties) |
| 174 (defun modify-frame-parameters (frame alist) | |
| 175 "Modify the properties of frame FRAME according to ALIST. | |
| 176 ALIST is an alist of properties to change and their new values. | |
| 177 Each element of ALIST has the form (PARM . VALUE), where PARM is a symbol. | |
| 178 The meaningful PARMs depend on the kind of frame. | |
| 179 | |
| 180 See `set-frame-properties' for built-in property names." | |
| 181 ;; it would be nice to be destructive here but that's not safe. | |
| 182 (set-frame-properties frame (alist-to-plist alist))) | |
| 183 | |
| 184 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; faces | |
| 185 | |
| 186 (define-obsolete-function-alias 'list-faces-display 'edit-faces) | |
| 187 (define-obsolete-function-alias 'list-faces 'face-list) | |
| 188 | |
| 5175 | 189 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; fonts and colors |
| 428 | 190 |
| 5175 | 191 (defun x-color-values (color &optional frame) |
| 192 "Return a description of the color named COLOR on frame FRAME. | |
| 193 The value is a list of integer RGB values--(RED GREEN BLUE). | |
| 194 These values appear to range from 0 to 65280 or 65535, depending | |
| 195 on the system; white is (65280 65280 65280) or (65535 65535 65535). | |
| 196 If FRAME is omitted or nil, use the selected frame." | |
| 197 (color-instance-rgb-components (make-color-instance color))) | |
| 198 (make-compatible 'x-color-values 'color-instance-rgb-components) | |
| 428 | 199 |
| 5175 | 200 (make-obsolete 'mswindows-color-list 'color-list) |
| 201 (make-obsolete 'tty-color-list 'color-list) | |
| 202 (make-compatible 'list-fonts 'font-list) | |
| 428 | 203 |
| 204 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; hooks | |
| 205 | |
| 206 (make-compatible-variable 'lisp-indent-hook 'lisp-indent-function) | |
| 207 (make-compatible-variable 'comment-indent-hook 'comment-indent-function) | |
| 208 (make-obsolete-variable 'temp-buffer-show-hook | |
| 209 'temp-buffer-show-function) | |
| 210 (make-obsolete-variable 'inhibit-local-variables | |
| 211 "use `enable-local-variables' (with the reversed sense).") | |
| 212 (make-obsolete-variable 'suspend-hooks 'suspend-hook) | |
| 213 (make-obsolete-variable 'first-change-function 'first-change-hook) | |
| 214 (make-obsolete-variable 'before-change-function | |
| 215 "use before-change-functions; which is a list of functions rather than a single function.") | |
| 216 (make-obsolete-variable 'after-change-function | |
| 217 "use after-change-functions; which is a list of functions rather than a single function.") | |
| 218 | |
| 5175 | 219 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; insertion, deletion, movement |
| 428 | 220 |
| 221 (define-compatible-function-alias 'insert-and-inherit 'insert) | |
| 222 (define-compatible-function-alias 'insert-before-markers-and-inherit | |
| 223 'insert-before-markers) | |
| 224 | |
| 5175 | 225 (define-compatible-function-alias 'line-beginning-position 'point-at-bol) |
| 226 (define-compatible-function-alias 'line-end-position 'point-at-eol) | |
| 227 | |
| 228 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; Lisp engine, basic Lisp stuff | |
| 229 | |
| 230 (make-obsolete 'function-called-at-point 'function-at-point) | |
| 231 | |
| 232 ;; As of 21.5, #'throw is a special operator. This makes bytecode using it | |
| 233 ;; compiled for 21.4 fail; making this function available works around that. | |
| 234 (defun obsolete-throw (tag value) | |
| 235 "Ugly compatibility hack. | |
| 236 | |
| 237 See the implementation of #'funcall in eval.c. This should be removed once | |
| 238 we no longer encounter bytecode from 21.4." | |
| 239 (throw tag value)) | |
| 240 | |
| 241 (make-obsolete | |
| 242 'obsolete-throw | |
| 243 "it says `obsolete' in the name, you know you shouldn't be using this.") | |
| 244 | |
| 245 (define-compatible-function-alias 'cl-mapc 'mapc) | |
| 246 | |
|
5387
5f5d48053e86
Drop #'cl-finite-do, defalias #'cl-float-limits to #'ignore in dumped XEmacs
Aidan Kehoe <kehoea@parhasard.net>
parents:
5368
diff
changeset
|
247 ;; Various non-XEmacs code can call this, because it used not be |
|
5f5d48053e86
Drop #'cl-finite-do, defalias #'cl-float-limits to #'ignore in dumped XEmacs
Aidan Kehoe <kehoea@parhasard.net>
parents:
5368
diff
changeset
|
248 ;; called automatically at dump time. |
|
5f5d48053e86
Drop #'cl-finite-do, defalias #'cl-float-limits to #'ignore in dumped XEmacs
Aidan Kehoe <kehoea@parhasard.net>
parents:
5368
diff
changeset
|
249 (define-function 'cl-float-limits 'ignore) |
|
5f5d48053e86
Drop #'cl-finite-do, defalias #'cl-float-limits to #'ignore in dumped XEmacs
Aidan Kehoe <kehoea@parhasard.net>
parents:
5368
diff
changeset
|
250 (make-obsolete 'cl-float-limits "this is called at dump time in 21.5 and \ |
|
5f5d48053e86
Drop #'cl-finite-do, defalias #'cl-float-limits to #'ignore in dumped XEmacs
Aidan Kehoe <kehoea@parhasard.net>
parents:
5368
diff
changeset
|
251 later, no need to call it in user code.") |
|
5f5d48053e86
Drop #'cl-finite-do, defalias #'cl-float-limits to #'ignore in dumped XEmacs
Aidan Kehoe <kehoea@parhasard.net>
parents:
5368
diff
changeset
|
252 |
|
5327
d1b17a33450b
Move the heavy lifting from cl-seq.el to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5255
diff
changeset
|
253 ;; XEmacs; old compiler macros meant that this was called directly |
|
d1b17a33450b
Move the heavy lifting from cl-seq.el to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5255
diff
changeset
|
254 ;; from compiled code, and we need to provide a version of it for a |
|
d1b17a33450b
Move the heavy lifting from cl-seq.el to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5255
diff
changeset
|
255 ;; couple of years at least because of that. Aidan Kehoe, Mon Oct 4 |
|
d1b17a33450b
Move the heavy lifting from cl-seq.el to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5255
diff
changeset
|
256 ;; 12:06:41 IST 2010 |
|
d1b17a33450b
Move the heavy lifting from cl-seq.el to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5255
diff
changeset
|
257 (defun cl-delete-duplicates (cl-seq cl-keys cl-copy) |
|
d1b17a33450b
Move the heavy lifting from cl-seq.el to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5255
diff
changeset
|
258 (apply (if cl-copy #'remove-duplicates #'delete-duplicates) cl-seq cl-keys)) |
|
d1b17a33450b
Move the heavy lifting from cl-seq.el to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5255
diff
changeset
|
259 |
|
d1b17a33450b
Move the heavy lifting from cl-seq.el to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5255
diff
changeset
|
260 (make-obsolete 'cl-delete-duplicates 'delete-duplicates) |
|
d1b17a33450b
Move the heavy lifting from cl-seq.el to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5255
diff
changeset
|
261 |
| 5175 | 262 ; old names |
| 263 (define-compatible-function-alias 'byte-code-function-p | |
| 264 'compiled-function-p) ;FSFmacs | |
| 265 | |
| 266 (define-compatible-function-alias 'interactive-form | |
| 267 'function-interactive) ;GNU 21.1 | |
| 268 (define-compatible-function-alias 'assq-delete-all | |
| 269 'remassq) ;GNU 21.1 | |
| 270 | |
| 271 (defun makehash (&optional test) | |
| 272 "Create a new hash table. | |
| 273 Optional first argument TEST specifies how to compare keys in the table. | |
| 274 Predefined tests are `eq', `eql', and `equal'. Default is `eql'." | |
| 275 (make-hash-table :test test)) | |
| 276 (make-compatible 'makehash 'make-hash-table) | |
| 277 | |
| 278 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; keys, keymaps | |
| 428 | 279 |
| 280 (defun keymap-parent (keymap) | |
| 281 "Return the first parent of the given keymap." | |
| 282 (car (keymap-parents keymap))) | |
| 283 (make-compatible 'keymap-parent 'keymap-parents) | |
| 284 | |
| 285 (defun set-keymap-parent (keymap parent) | |
| 286 "Make the given keymap have (only) the given parent." | |
| 287 (set-keymap-parents keymap (if parent (list parent) '())) | |
| 288 parent) | |
| 289 (make-compatible 'set-keymap-parent 'set-keymap-parents) | |
| 290 | |
|
5208
9fa29ec759e3
Implement suggest-key-bindings in terms of teach-extended-commands-p
Aidan Kehoe <kehoea@parhasard.net>
parents:
5175
diff
changeset
|
291 (make-compatible-variable 'suggest-key-bindings 'teach-extended-commands-p) |
|
9fa29ec759e3
Implement suggest-key-bindings in terms of teach-extended-commands-p
Aidan Kehoe <kehoea@parhasard.net>
parents:
5175
diff
changeset
|
292 |
| 5175 | 293 ;; too bad there's not a way to check for aref, assq, and nconc |
| 294 ;; being called on the values of functions known to return keymaps, | |
| 295 ;; or known to return vectors of events instead of strings... | |
| 296 | |
| 297 ;;; Yes there is; make compiler macros for aref, assq, nconc, checking that | |
| 298 ;;; the car of the relevant argument is sane. | |
| 299 | |
| 300 (make-obsolete-variable 'executing-macro 'executing-kbd-macro) | |
| 301 | |
| 428 | 302 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; menu stuff |
| 303 | |
|
4317
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
304 (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
|
305 "Obsolete. See the function `add-menu-button'." |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
306 (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
|
307 (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
|
308 (make-obsolete 'add-menu-item 'add-menu-button) |
| 428 | 309 |
|
4317
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
310 (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
|
311 "See the function `add-submenu'." |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
312 (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
|
313 (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
|
314 (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
|
315 ;; 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
|
316 (make-compatible 'add-menu 'add-submenu) |
| 428 | 317 |
|
4317
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
318 (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
|
319 'package-ui-download-menu) |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
320 |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
321 (unless (featurep 'menubar) |
|
15d36164ebd7
Eliminate lost docstring warnings on 21.5.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4222
diff
changeset
|
322 ;; 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
|
323 ;; 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
|
324 ;; 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
|
325 (mapc #'unintern '(add-menu-item add-menu package-get-download-menu))) |
| 1365 | 326 |
| 428 | 327 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; minibuffer |
| 328 | |
| 329 (define-compatible-function-alias 'read-minibuffer | |
| 330 'read-expression) ; misleading name | |
| 331 (define-compatible-function-alias 'read-input 'read-string) | |
| 332 | |
| 333 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; modeline | |
| 334 | |
| 335 (define-compatible-function-alias 'redraw-mode-line 'redraw-modeline) | |
| 336 (define-compatible-function-alias 'force-mode-line-update | |
| 337 'redraw-modeline) ;; FSF compatibility | |
| 338 (define-compatible-variable-alias 'mode-line-map 'modeline-map) | |
| 339 (define-compatible-variable-alias 'mode-line-buffer-identification | |
| 340 'modeline-buffer-identification) | |
| 341 (define-compatible-variable-alias 'mode-line-process 'modeline-process) | |
| 342 (define-compatible-variable-alias 'mode-line-modified 'modeline-modified) | |
| 343 (make-compatible-variable 'mode-line-inverse-video | |
| 344 "use set-face-highlight-p and set-face-reverse-p") | |
| 345 (define-compatible-variable-alias 'default-mode-line-format | |
| 346 'default-modeline-format) | |
| 347 (define-compatible-variable-alias 'mode-line-format 'modeline-format) | |
| 348 (define-compatible-variable-alias 'mode-line-menu 'modeline-menu) | |
| 349 | |
| 350 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; mouse | |
| 351 | |
| 352 ;;; (defun mouse-eval-last-sexpr (event) | |
| 353 ;;; (interactive "@e") | |
| 354 ;;; (save-excursion | |
| 355 ;;; (mouse-set-point event) | |
| 356 ;;; (eval-last-sexp nil))) | |
| 357 | |
| 358 (define-obsolete-function-alias 'mouse-eval-last-sexpr 'mouse-eval-sexp) | |
| 359 | |
| 360 (defun read-mouse-position (frame) | |
| 361 (cdr (mouse-position (frame-device frame)))) | |
| 362 (make-obsolete 'read-mouse-position 'mouse-position) | |
| 363 | |
| 5175 | 364 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; paths |
| 365 | |
| 366 (defvar Info-default-directory-list nil | |
| 367 "This used to be the initial value of Info-directory-list. | |
| 368 If you want to change the locations where XEmacs looks for info files, | |
| 369 set Info-directory-list.") | |
| 370 (make-obsolete-variable 'Info-default-directory-list 'Info-directory-list) | |
| 371 | |
| 372 (defvar init-file-user nil | |
| 373 "This used to be the name of the user whose init file was read at startup.") | |
| 374 (make-obsolete-variable 'init-file-user 'load-user-init-file-p) | |
| 375 | |
| 376 (define-obsolete-function-alias 'pui-add-install-directory | |
| 377 'pui-set-local-package-get-directory) ; misleading name | |
| 378 | |
| 428 | 379 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; redisplay |
| 380 | |
| 381 (defun redraw-display (&optional device) | |
| 382 (if (eq device t) | |
| 383 (mapcar 'redisplay-device (device-list)) | |
| 384 (redisplay-device device))) | |
| 385 | |
| 5175 | 386 ;; the functionality of column.el has been moved into C |
| 387 ;; Function obsoleted for XEmacs 20.0/February 1997. | |
| 388 (defalias 'display-column-mode 'column-number-mode) | |
| 389 | |
| 390 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; selections | |
| 391 | |
| 392 (define-obsolete-function-alias 'isearch-yank-x-selection | |
| 393 'isearch-yank-selection) | |
| 394 (define-obsolete-function-alias 'isearch-yank-x-clipboard | |
| 395 'isearch-yank-clipboard) | |
| 396 | |
| 397 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; text and strings | |
| 777 | 398 |
| 399 (define-obsolete-function-alias 'sref 'aref) | |
| 400 | |
| 401 (defun char-bytes (character) | |
| 402 "Return number of bytes a CHARACTER occupies in a string or buffer. | |
| 403 It always returns 1 in XEmacs, and in recent FSF Emacs versions." | |
| 404 1) | |
| 405 (make-obsolete 'char-bytes "This function always returns 1") | |
| 406 | |
| 860 | 407 (defun find-non-ascii-charset-string (string) |
| 408 "Return a list of charsets in the STRING except ascii. | |
| 409 It might be available for compatibility with Mule 2.3, | |
| 410 because its `find-charset-string' ignores ASCII charset." | |
|
5368
ed74d2ca7082
Use ', not #', when a given symbol may not have a function binding at read time
Aidan Kehoe <kehoea@parhasard.net>
parents:
5327
diff
changeset
|
411 (delq 'ascii (and-fboundp 'charsets-in-string (charsets-in-string string)))) |
| 860 | 412 (make-obsolete 'find-non-ascii-charset-string |
| 413 "use (delq 'ascii (charsets-in-string STRING)) instead.") | |
| 414 | |
| 415 (defun find-non-ascii-charset-region (start end) | |
| 416 "Return a list of charsets except ascii in the region between START and END. | |
| 417 It might be available for compatibility with Mule 2.3, | |
| 418 because its `find-charset-string' ignores ASCII charset." | |
|
5368
ed74d2ca7082
Use ', not #', when a given symbol may not have a function binding at read time
Aidan Kehoe <kehoea@parhasard.net>
parents:
5327
diff
changeset
|
419 (delq 'ascii (and-fboundp 'charsets-in-region |
| 4222 | 420 (charsets-in-region start end)))) |
| 860 | 421 (make-obsolete 'find-non-ascii-charset-region |
| 422 "use (delq 'ascii (charsets-in-region START END)) instead.") | |
| 818 | 423 |
| 3555 | 424 ;; < 21.5 compatibility, eg. https://bugzilla.redhat.com/201524#c2 |
| 425 (define-obsolete-function-alias 'string-to-char-list 'string-to-list) | |
| 426 | |
| 428 | 427 ;; Two loser functions which shouldn't be used. |
| 428 (make-obsolete 'following-char 'char-after) | |
| 429 (make-obsolete 'preceding-char 'char-before) | |
| 430 | |
| 5175 | 431 |
| 432 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; misc | |
| 433 | |
| 434 ;; (defun user-original-login-name () | |
| 435 ;; "Return user's login name from original login. | |
| 436 ;; This tries to remain unaffected by `su', by looking in environment variables." | |
| 437 ;; (or (getenv "LOGNAME") (getenv "USER") (user-login-name))) | |
| 438 (define-obsolete-function-alias 'user-original-login-name 'user-login-name) | |
| 439 | |
| 428 | 440 ;; Keywords already do The Right Thing in XEmacs |
| 441 (make-compatible 'define-widget-keywords "Just use them") | |
| 442 | |
|
5229
7d06a8bf47d2
Move #'purecopy from alloc.c to being an obsolete alias for #'identity
Aidan Kehoe <kehoea@parhasard.net>
parents:
5208
diff
changeset
|
443 (define-function 'purecopy 'identity) |
|
7d06a8bf47d2
Move #'purecopy from alloc.c to being an obsolete alias for #'identity
Aidan Kehoe <kehoea@parhasard.net>
parents:
5208
diff
changeset
|
444 (make-obsolete 'purecopy "purespace is not available in XEmacs.") |
|
4995
8431b52e43b1
Move the various map* functions to C; add #'map-into.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4885
diff
changeset
|
445 |
|
5255
b5611afbcc76
Support process plists, for greater GNU compatibility.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5229
diff
changeset
|
446 (define-compatible-function-alias 'process-get 'get) |
|
b5611afbcc76
Support process plists, for greater GNU compatibility.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5229
diff
changeset
|
447 (define-compatible-function-alias 'process-put 'put) |
|
b5611afbcc76
Support process plists, for greater GNU compatibility.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5229
diff
changeset
|
448 (define-compatible-function-alias 'process-plist 'object-plist) |
|
b5611afbcc76
Support process plists, for greater GNU compatibility.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5229
diff
changeset
|
449 (define-compatible-function-alias 'set-process-plist 'object-setplist) |
|
b5611afbcc76
Support process plists, for greater GNU compatibility.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5229
diff
changeset
|
450 |
|
5327
d1b17a33450b
Move the heavy lifting from cl-seq.el to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5255
diff
changeset
|
451 (define-function 'memql 'member*) |
|
d1b17a33450b
Move the heavy lifting from cl-seq.el to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5255
diff
changeset
|
452 (make-compatible 'memql "use the more full-featured `member*' instead.") |
|
d1b17a33450b
Move the heavy lifting from cl-seq.el to C.
Aidan Kehoe <kehoea@parhasard.net>
parents:
5255
diff
changeset
|
453 |
| 428 | 454 (provide 'obsolete) |
| 455 ;;; obsolete.el ends here |