Re: Speaking of renaming symbols at the last minute ...

yes yes yes and these too (all pre-19.12 I think): (make-obsolete-variable 'meta-flag "use the `set-input-mode' function instead.") (define-obsolete-function-alias 'baud-rate 'device-baud-rate) ;;;;;;;;;;;;;;;;;;;;;;;;;;;; events (make-obsolete 'sleep-for-millisecs "use sleep-for with a float") ;;;;;;;;;;;;;;;;;;;;;;;;;;;; extents (defun extent-data (extent) "Obsolete. Return the `data' property of EXTENT." (extent-property extent 'data)) (make-obsolete 'set-window-dot 'set-window-point) (defun set-extent-data (extent data) "Obsolete. Set the `data' property of EXTENT." (set-extent-property extent 'data data)) (make-obsolete 'set-extent-data 'set-extent-property) (defun set-extent-attribute (extent attr &optional clearp) ;; obsoleteness info will be displayed, so no need for docstring. (cond ((eq attr 'write-protected) (set-extent-property extent 'read-only t)) ((eq attr 'unhighlight) (set-extent-property extent 'mouse-face nil)) ((eq attr 'writable) (set-extent-property extent 'read-only nil)) ((eq attr 'visible) (set-extent-property extent 'invisible nil)) (t (set-extent-property extent attr t)))) (make-obsolete 'set-extent-attribute 'set-extent-property) (defun extent-glyph (extent) ;; obsoleteness info will be displayed, so no need for docstring. (or (extent-begin-glyph extent) (extent-end-glyph extent))) (make-obsolete 'extent-glyph "use `extent-begin-glyph' or `extent-end-glyph' instead.") (defun extent-layout (extent) ;; obsoleteness info will be displayed, so no need for docstring. (extent-begin-glyph-layout extent)) (make-obsolete 'extent-layout "use `extent-begin-glyph-layout' or `extent-end-glyph-layout' inst= ead.") (defun set-extent-layout (extent layout) ;; obsoleteness info will be displayed, so no need for docstring. (set-extent-begin-glyph-layout extent layout)) (make-obsolete 'set-extent-layout "use `set-extent-begin-glyph-layout' or `set-extent-end-glyph-layo= ut' instead.") ;;;;;;;;;;;;;;;;;;;;;;;;;;;; faces (define-obsolete-function-alias 'list-faces-display 'edit-faces) (define-obsolete-function-alias 'list-faces 'face-list) ;;;;;;;;;;;;;;;;;;;;;;;;;;;; files (make-obsolete-variable 'trim-versions-without-asking 'delete-old-version= s) ;;; Old XEmacs name; kept around for compatibility. (define-obsolete-variable-alias 'after-write-file-hooks 'after-save-hook)= (define-obsolete-function-alias 'truename 'file-truename) ;;;;;;;;;;;;;;;;;;;;;;;;;;;; hooks (make-obsolete-variable 'auto-fill-hook 'auto-fill-function) (make-obsolete-variable 'blink-paren-hook 'blink-paren-function) (make-obsolete-variable 'lisp-indent-hook 'lisp-indent-function) (make-obsolete-variable 'comment-indent-hook 'comment-indent-function) (make-obsolete-variable 'temp-buffer-show-hook 'temp-buffer-show-function) (make-obsolete-variable 'inhibit-local-variables "use `enable-local-variables' (with the reversed sense).") (make-obsolete-variable 'suspend-hooks 'suspend-hook) (make-obsolete-variable 'first-change-function 'first-change-hook) (make-obsolete-variable 'before-change-function "use before-change-functions; which is a list of functions rather than = a single function.") (make-obsolete-variable 'after-change-function "use after-change-functions; which is a list of functions rather than a= single function.") ;;;;;;;;;;;;;;;;;;;;;;;;;;;; menu stuff (define-obsolete-function-alias 'popup-menu-up-p 'popup-up-p) ;;;;;;;;;;;;;;;;;;;;;;;;;;;; minibuffer (make-obsolete 'read-no-blanks-input 'read-string) ; mocklisp crud ;;;;;;;;;;;;;;;;;;;;;;;;;;;; misc ; old names (define-obsolete-function-alias 'wholenump 'natnump) (define-obsolete-function-alias 'show-buffer 'set-window-buffer) (define-obsolete-function-alias 'buffer-flush-undo 'buffer-disable-undo) (define-obsolete-function-alias 'eval-current-buffer 'eval-buffer) (make-obsolete 'ring-mod 'mod) (make-obsolete 'current-time-seconds 'current-time) ;; too bad there's not a way to check for aref, assq, and nconc ;; being called on the values of functions known to return keymaps, ;; or known to return vectors of events instead of strings... (define-obsolete-function-alias 'run-special-hook-with-args 'run-hook-with-args-until-success) (make-obsolete-variable 'executing-macro 'executing-kbd-macro) ;;;;;;;;;;;;;;;;;;;;;;;;;;;; mouse (define-obsolete-function-alias 'mouse-eval-last-sexpr 'mouse-eval-sexp) (defun read-mouse-position (frame) (cdr (mouse-position (frame-device frame)))) (make-obsolete 'read-mouse-position 'mouse-position) ;;;;;;;;;;;;;;;;;;;;;;;;;;;; `point' (define-obsolete-function-alias 'dot 'point) (define-obsolete-function-alias 'dot-marker 'point-marker) (define-obsolete-function-alias 'dot-min 'point-min) (define-obsolete-function-alias 'dot-max 'point-max) (define-obsolete-function-alias 'window-dot 'window-point) (define-obsolete-function-alias 'set-window-dot 'set-window-point) ;;;;;;;;;;;;;;;;;;;;;;;;;;;; processes (define-obsolete-function-alias 'send-string 'process-send-string) (define-obsolete-function-alias 'send-region 'process-send-region) ;;;;;;;;;;;;;;;;;;;;;;;;;;;; stuff replaced by specifiers (defun screen-scrollbar-width (&optional screen) ;; specifier-specs is the inverse of set-specifier, but ;; the way this function was defined, specifier-instance ;; is closer. (specifier-instance scrollbar-width (or screen (selected-frame)))) (make-obsolete 'screen-scrollbar-width "use (specifier-instance scrollbar-width ...).") (defun set-screen-scrollbar-width (screen value) (set-specifier scrollbar-width (cons screen value))) (make-obsolete 'set-screen-scrollbar-width "use (set-specifier scrollbar-width ...).") (defun set-screen-left-margin-width (value &optional screen) (set-specifier left-margin-width (cons (or screen (selected-frame)) value))) (make-obsolete 'set-screen-left-margin-width "use (set-specifier left-margin-width ...).") (defun set-screen-right-margin-width (value &optional screen) (set-specifier right-margin-width (cons (or screen (selected-frame)) value))) (make-obsolete 'set-screen-right-margin-width "use (set-specifier right-margin-width ...).") (defun set-buffer-left-margin-width (value &optional buffer) (set-specifier left-margin-width (cons (or buffer (current-buffer)) val= ue))) (make-obsolete 'set-buffer-left-margin-width "use (set-specifier left-margin-width ...).") (defun set-buffer-right-margin-width (value &optional buffer) (set-specifier right-margin-width (cons (or buffer (current-buffer)) va= lue))) (make-obsolete 'set-buffer-right-margin-width "use (set-specifier right-margin-width ...).") (defun screen-left-margin-width (&optional screen) (specifier-specs left-margin-width (or screen (selected-frame)))) (make-obsolete 'screen-left-margin-width "use (specifier-specs left-margin-width ...).") (defun screen-right-margin-width (&optional screen) (specifier-specs right-margin-width (or screen (selected-frame)))) (make-obsolete 'screen-right-margin-width "use (specifier-specs right-margin-width ...).") (defun buffer-left-margin-width (&optional buffer) (specifier-specs left-margin-width (or buffer (current-buffer)))) (make-obsolete 'buffer-left-margin-width "use (specifier-specs left-margin-width ...).") (defun buffer-right-margin-width (&optional buffer) (specifier-specs right-margin-width (or buffer (current-buffer)))) (make-obsolete 'buffer-right-margin-width "use (specifier-specs right-margin-width ...).") (defun x-set-frame-icon-pixmap (frame image-instance &optional mask-ignor= ed) "Set the icon of the given frame to the given image instance, which should be an image instance object (as returned by `make-image-instance'), a glyph object (as returned by `make-glyph'), or nil. If a glyph object is given, the glyph will be instantiated on the frame to produce an image instance object. If the given image instance has a mask, that will be used as the icon mas= k; however, not all window managers support this. The window manager is also not required to support color pixmaps, only bitmaps (one plane deep). Optional third argument is ignored. If you're concerned about this incomplete backwards incompatibility, you should convert your code to use `frame-icon-glyph' -- you can specify a mask for an XBM file using the standard image instantiator format." (if (glyphp image-instance) (setq image-instance (glyph-image-instance image-instance frame))) (set-glyph-image frame-icon-glyph image-instance frame)) (make-obsolete 'x-set-frame-icon-pixmap "use (set-glyph-image frame-icon-glyph ...).") (defalias 'x-set-screen-icon-pixmap 'x-set-frame-icon-pixmap) (make-obsolete 'x-set-screen-icon-pixmap "use (set-glyph-image frame-icon-glyph ...).") ;;;;;;;;;;;;;;;;;;;;;;;;;;;; window-system objects (define-obsolete-function-alias 'pixel-name 'color-name) ;; compatibility function -- a front-end to make-glyph (defun make-pixmap (name &optional locale) "Create a glyph with NAME as an image specifier and locale LOCALE. The file should be in `XBM' or `XPM' format. If the XBMLANGPATH environment variable is set, it will be searched for matching files. Next, the directories listed in the `x-bitmap-file-path= ' variable will be searched (this variable is initialized from the \"*bitmapFilePath\" resource). Finally, the XEmacs etc/ directory (the value of `data-directory') will be searched. The file argument may also be a list of the form (width height data) wher= e width and height are the size in pixels, and data is a string, containin= g the raw bits of the bitmap. (Bitmaps specified this way can only be one= bit deep.) If compiled with support for XPM, the file argument may also be a string which is the contents of an XPM file (that is, a string beginning with t= he characters \"/* XPM */\"; see the XPM documentation). The optional second argument is the specifier locale for this pixmap glyp= h. The returned object is a glyph object. To get the actual pixmap object f= or a given frame, use the function `glyph-instance'." (if (consp name) (setq name (vector 'xbm :data name))) (make-glyph name)) (make-obsolete 'make-pixmap 'make-glyph) (defun make-cursor (name &optional fg bg device) "Creates a pointer image instance with NAME as an image specifier. The optional second and third arguments are the foreground and background= colors. They may be color name strings or `pixel' objects. The optional fourth argument is the device on which to allocate the curso= r (defaults to the selected device). This allocates a new pointer in the X server, and signals an error if the= pointer is unknown or cannot be allocated. A pointer name can take many different forms. It can be: - any of the standard cursor names from appendix B of the Xlib manual (also known as the file <X11/cursorfont.h>) minus the XC_ prefix; - the name of a font, and glyph index into it of the form \"FONT fontname index [[mask-font] mask-index]\"; - the name of a bitmap or pixmap file; - or an image instance object, as returned by `make-image-instance'. If it is an image instance or pixmap file, and that pixmap comes with a mask, then that mask will be used. If it is an image instance, it must have only one plane, since X pointers may only have two colors. If it i= s a pixmap file, then the file will be read in monochrome. If it is a bitmap file, and if a bitmap file whose name is the name of th= e pointer with \"msk\" or \"Mask\" appended exists, then that second bitma= p will be used as the mask. For example, a pair of files might be named \"pointer.xbm\" and \"pointer.xbmmsk\". The returned object is a normal, first-class lisp object. The way you `deallocate' the pointer is the way you deallocate any other lisp object:= you drop all pointers to it and allow it to be garbage collected. When these objects are GCed, the underlying X data is deallocated as well." ;; #### ignores fg and bg (make-image-instance name device '(pointer))) (make-obsolete 'make-cursor 'make-image-instance) (define-obsolete-function-alias 'pixmap-width 'glyph-width) (define-obsolete-function-alias 'pixmap-contributes-to-line-height-p 'glyph-contrib-p-instance) (define-obsolete-function-alias 'set-pixmap-contributes-to-line-height 'set-glyph-contrib-p) SL Baur wrote: -- Ben Wing - If this message is long and typed, someone else typed it for me - If it has a .rm (RealAudio) attachment, see http://www.real.com/products/player/downloadrealplayer.html?wp=dl0498 - If this doesn't work and there's a GSM WAV attachment, see http://xanim.va.pubnix.com/home.html