home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / prim / obsolete.el < prev    next >
Encoding:
Text File  |  1995-08-07  |  19.7 KB  |  453 lines
  1. ;;; obsolete.el --- obsoleteness support.
  2.  
  3. ;;;; Copyright (C) 1985-1994 Free Software Foundation, Inc.
  4. ;;;; Copyright (C) 1994, 1995 Amdahl Corporation.
  5. ;;;; Copyright (C) 1995 Sun Microsystems.
  6.  
  7. ;; Maintainer: XEmacs
  8. ;; Keywords: internal
  9.  
  10. ;; This file is part of XEmacs.
  11.  
  12. ;; XEmacs is free software; you can redistribute it and/or modify it
  13. ;; under the terms of the GNU General Public License as published by
  14. ;; the Free Software Foundation; either version 2, or (at your option)
  15. ;; any later version.
  16.  
  17. ;; XEmacs is distributed in the hope that it will be useful, but
  18. ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  19. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  20. ;; General Public License for more details.
  21.  
  22. ;; You should have received a copy of the GNU General Public License
  23. ;; along with XEmacs; see the file COPYING.  If not, write to the Free
  24. ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  25.  
  26. ;;; The obsoleteness support used to be scattered throughout various
  27. ;;; source files.  We put the stuff in one place to remove the junkiness
  28. ;;; from other source files and to facilitate creating/updating things
  29. ;;; like sysdep.el.
  30.  
  31. (defsubst define-obsolete-function-alias (oldfun newfun)
  32.   "Define OLDFUN as an obsolete alias for function NEWFUN.
  33. This makes calling OLDFUN equivalent to calling NEWFUN and marks OLDFUN
  34. as obsolete."
  35.   (define-function oldfun newfun)
  36.   (make-obsolete oldfun newfun))
  37.  
  38. (defsubst define-obsolete-variable-alias (oldvar newvar)
  39.   "Define OLDVAR as an obsolete alias for varction NEWVAR.
  40. This makes referencing or setting OLDVAR equivalent to referencing or
  41. setting NEWVAR and marks OLDVAR as obsolete."
  42.   (defvaralias oldvar newvar)
  43.   (make-obsolete-variable oldvar newvar))
  44.  
  45. ;;;;;;;;;;;;;;;;;;;;;;;;;;;; `point'
  46.  
  47. (define-obsolete-function-alias 'dot 'point)
  48. (define-obsolete-function-alias 'dot-marker 'point-marker)
  49. (define-obsolete-function-alias 'dot-min 'point-min)
  50. (define-obsolete-function-alias 'dot-max 'point-max)
  51. (define-obsolete-function-alias 'window-dot 'window-point)
  52. (define-obsolete-function-alias 'set-window-dot 'set-window-point)
  53.  
  54. ;;;;;;;;;;;;;;;;;;;;;;;;;;;; extents
  55.  
  56. (defun extent-data (extent)
  57.   "Obsolete.  Returns the `data' property of the given extent."
  58.   (extent-property extent 'data))
  59. (make-obsolete 'set-window-dot 'set-window-point)
  60.  
  61. (defun set-extent-data (extent data)
  62.   "Obsolete.  Sets the `data' property of the given extent."
  63.   (set-extent-property extent 'data data))
  64. (make-obsolete 'set-extent-data 'set-extent-property)
  65.  
  66. (defun set-extent-attribute (extent attr &optional clearp)
  67.   "" ;; obsoleteness info will be displayed, so no need for anything more.
  68.   (cond ((eq attr 'write-protected)
  69.          (set-extent-property extent 'read-only t))
  70.         ((eq attr 'unhighlight)
  71.          (set-extent-property extent 'highlight nil))
  72.         ((eq attr 'writable)
  73.          (set-extent-property extent 'read-only nil))
  74.         ((eq attr 'visible)
  75.          (set-extent-property extent 'invisible nil))
  76.         (t
  77.          (set-extent-property extent attr t))))
  78. (make-obsolete 'set-extent-attribute 'set-extent-property)
  79.  
  80. (defun extent-glyph (extent)
  81.   "" ;; obsoleteness info will be displayed, so no need for anything more.
  82.   (or (extent-begin-glyph extent)
  83.       (extent-end-glyph extent)))
  84. (make-obsolete 'extent-glyph
  85.            "use `extent-begin-glyph' or `extent-end-glyph' instead.")
  86.  
  87. (defun extent-layout (extent)
  88.   "" ;; obsoleteness info will be displayed, so no need for anything more.
  89.   (extent-begin-glyph-layout extent))
  90. (make-obsolete 'extent-layout
  91.        "use `extent-begin-glyph-layout' or `extent-end-glyph-layout' instead.")
  92.  
  93. (defun set-extent-layout (extent layout)
  94.   "" ;; obsoleteness info will be displayed, so no need for anything more.
  95.   (set-extent-begin-glyph-layout extent layout))
  96. (make-obsolete 'set-extent-layout
  97.        "use `set-extent-begin-glyph-layout' or `set-extent-end-glyph-layout' instead.")
  98.  
  99. ;;;;;;;;;;;;;;;;;;;;;;;;;;;; frames
  100.  
  101. (define-obsolete-variable-alias 'select-screen-hook 'select-frame-hook)
  102. (define-obsolete-variable-alias 'deselect-screen-hook 'deselect-frame-hook)
  103. (define-obsolete-variable-alias 'auto-raise-screen 'auto-raise-frame)
  104. (define-obsolete-variable-alias 'auto-lower-screen 'auto-lower-frame)
  105. (define-obsolete-variable-alias 'get-screen-for-buffer-default-screen-name
  106.   'get-frame-for-buffer-default-frame-name)
  107.  
  108. (define-obsolete-function-alias 'buffer-dedicated-screen
  109.   'buffer-dedicated-frame)
  110. (define-obsolete-function-alias 'deiconify-screen 'deiconify-frame)
  111. (define-obsolete-function-alias 'delete-screen 'delete-frame)
  112. (define-obsolete-function-alias 'event-screen 'event-frame)
  113. (define-obsolete-function-alias 'find-file-other-screen 'find-file-other-frame)
  114. (define-obsolete-function-alias 'find-file-read-only-other-screen
  115.   'find-file-read-only-other-frame)
  116. (define-obsolete-function-alias 'live-screen-p 'frame-live-p)
  117. (define-obsolete-function-alias 'screen-height 'frame-height)
  118. (define-obsolete-function-alias 'screen-iconified-p 'frame-iconified-p)
  119. (define-obsolete-function-alias 'screen-list 'frame-list)
  120. (define-obsolete-function-alias 'screen-live-p 'frame-live-p)
  121. (define-obsolete-function-alias 'screen-name 'frame-name)
  122. (define-obsolete-function-alias 'screen-parameters 'frame-parameters)
  123. (define-obsolete-function-alias 'screen-pixel-height 'frame-pixel-height)
  124. (define-obsolete-function-alias 'screen-pixel-width 'frame-pixel-width)
  125. (define-obsolete-function-alias 'screen-root-window 'frame-root-window)
  126. (define-obsolete-function-alias 'screen-selected-window 'frame-selected-window)
  127. (define-obsolete-function-alias 'screen-totally-visible-p
  128.   'frame-totally-visible-p)
  129. (define-obsolete-function-alias 'screen-visible-p 'frame-visible-p)
  130. (define-obsolete-function-alias 'screen-width 'frame-width)
  131. (define-obsolete-function-alias 'screenp 'framep)
  132. (define-obsolete-function-alias 'get-screen-for-buffer 'get-frame-for-buffer)
  133. (define-obsolete-function-alias 'get-screen-for-buffer-noselect
  134.   'get-frame-for-buffer-noselect)
  135. (define-obsolete-function-alias 'get-other-screen 'get-other-frame)
  136. (define-obsolete-function-alias 'iconify-screen 'iconify-frame)
  137. (define-obsolete-function-alias 'lower-screen 'lower-frame)
  138. (define-obsolete-function-alias 'mail-other-screen 'mail-other-frame)
  139. (define-obsolete-function-alias 'make-screen 'make-frame)
  140. (define-obsolete-function-alias 'make-screen-invisible 'make-frame-invisible)
  141. (define-obsolete-function-alias 'make-screen-visible 'make-frame-visible)
  142. (define-obsolete-function-alias 'modify-screen-parameters
  143.   'modify-frame-parameters)
  144. (define-obsolete-function-alias 'new-screen 'new-frame)
  145. (define-obsolete-function-alias 'next-screen 'next-frame)
  146. (define-obsolete-function-alias 'next-multiscreen-window
  147.   'next-multiframe-window)
  148. (define-obsolete-function-alias 'other-screen 'other-frame)
  149. (define-obsolete-function-alias 'previous-screen 'previous-frame)
  150. (define-obsolete-function-alias 'previous-multiscreen-window
  151.   'previous-multiframe-window)
  152. (define-obsolete-function-alias 'raise-screen 'raise-frame)
  153. (define-obsolete-function-alias 'redraw-screen 'redraw-frame)
  154. (define-obsolete-function-alias 'select-screen 'select-frame)
  155. (define-obsolete-function-alias 'selected-screen 'selected-frame)
  156. (define-obsolete-function-alias 'set-buffer-dedicated-screen
  157.   'set-buffer-dedicated-frame)
  158. (define-obsolete-function-alias 'set-screen-height 'set-frame-height)
  159. (define-obsolete-function-alias 'set-screen-position 'set-frame-position)
  160. (define-obsolete-function-alias 'set-screen-size 'set-frame-size)
  161. (define-obsolete-function-alias 'set-screen-width 'set-frame-width)
  162. (define-obsolete-function-alias 'show-temp-buffer-in-current-screen
  163.   'show-temp-buffer-in-current-frame)
  164. (define-obsolete-function-alias 'switch-to-buffer-other-screen
  165.   'switch-to-buffer-other-frame)
  166. (define-obsolete-function-alias 'visible-screen-list 'visible-frame-list)
  167. (define-obsolete-function-alias 'window-screen 'window-frame)
  168. (define-obsolete-function-alias 'x-set-screen-icon-pixmap
  169.   'x-set-frame-icon-pixmap)
  170. (define-obsolete-function-alias 'x-set-screen-pointer
  171.   'x-set-frame-pointer)
  172.  
  173. (define-obsolete-variable-alias 'screen-title-format 'frame-title-format)
  174. (define-obsolete-variable-alias 'screen-icon-title-format
  175.   'frame-icon-title-format)
  176. (define-obsolete-variable-alias 'terminal-screen 'terminal-frame)
  177. (define-obsolete-variable-alias 'delete-screen-hook 'delete-frame-hook)
  178. (define-obsolete-variable-alias 'create-screen-hook 'create-frame-hook)
  179. (define-obsolete-variable-alias 'mouse-enter-screen-hook
  180.   'mouse-enter-frame-hook)
  181. (define-obsolete-variable-alias 'mouse-leave-screen-hook
  182.   'mouse-leave-frame-hook)
  183. (define-obsolete-variable-alias 'map-screen-hook 'map-frame-hook)
  184. (define-obsolete-variable-alias 'unmap-screen-hook 'unmap-frame-hook)
  185. (define-obsolete-variable-alias 'default-screen-alist 'default-frame-alist)
  186. (define-obsolete-variable-alias 'default-screen-name 'default-frame-name)
  187. (define-obsolete-variable-alias 'x-screen-defaults 'default-x-frame-alist)
  188.  
  189. (defun x-create-screen (parms window-id)
  190.   ""
  191.   (if (not (eq 'x (device-type (selected-device))))
  192.       (error "Cannot create X frames on non-X device"))
  193.   (make-frame (append parms (list (list 'window-id window-id)))
  194.               (selected-device)))
  195. (make-obsolete 'x-create-screen 'make-frame)
  196.  
  197. (defun frame-first-window (frame)
  198.   "Returns the topmost, leftmost window of FRAME.
  199. If omitted, FRAME defaults to the currently selected frame."
  200.   (frame-highest-window frame 0))
  201. (make-obsolete 'frame-first-window 'frame-highest-window)
  202.  
  203. ;;;;;;;;;;;;;;;;;;;;;;;;;;;; stuff replaced by specifiers
  204.  
  205. (defun screen-scrollbar-width (&optional screen)
  206.   ;; specifier-specs is the inverse of set-specifier, but
  207.   ;; the way this function was defined, specifier-instance
  208.   ;; is closer.
  209.   (specifier-instance scrollbar-width (or screen (selected-frame))))
  210. (make-obsolete 'screen-scrollbar-width
  211.            "use (specifier-instance scrollbar-width ...).")
  212.  
  213. (defun set-screen-scrollbar-width (screen value)
  214.   (set-specifier scrollbar-width (cons screen value)))
  215. (make-obsolete 'set-screen-scrollbar-width
  216.            "use (set-specifier scrollbar-width ...).")
  217.  
  218. (defun set-screen-left-margin-width (value &optional screen)
  219.   (set-specifier left-margin-width
  220.          (cons (or screen (selected-frame)) value)))
  221. (make-obsolete 'set-screen-left-margin-width
  222.            "use (set-specifier left-margin-width ...).")
  223.  
  224. (defun set-screen-right-margin-width (value &optional screen)
  225.   (set-specifier right-margin-width
  226.          (cons (or screen (selected-frame)) value)))
  227. (make-obsolete 'set-screen-right-margin-width
  228.            "use (set-specifier right-margin-width ...).")
  229.  
  230. (defun set-buffer-left-margin-width (value &optional buffer)
  231.   (set-specifier left-margin-width (cons (or buffer (current-buffer)) value)))
  232. (make-obsolete 'set-buffer-left-margin-width
  233.            "use (set-specifier left-margin-width ...).")
  234.  
  235. (defun set-buffer-right-margin-width (value &optional buffer)
  236.   (set-specifier right-margin-width (cons (or buffer (current-buffer)) value)))
  237. (make-obsolete 'set-buffer-right-margin-width
  238.            "use (set-specifier right-margin-width ...).")
  239.  
  240. (defun screen-left-margin-width (&optional screen)
  241.   (specifier-specs left-margin-width (or screen (selected-frame))))
  242. (make-obsolete 'screen-left-margin-width
  243.            "use (specifier-specs left-margin-width ...).")
  244.  
  245. (defun screen-right-margin-width (&optional screen)
  246.   (specifier-specs right-margin-width (or screen (selected-frame))))
  247. (make-obsolete 'screen-right-margin-width
  248.            "use (specifier-specs right-margin-width ...).")
  249.  
  250. (defun buffer-left-margin-width (&optional buffer)
  251.   (specifier-specs left-margin-width (or buffer (current-buffer))))
  252. (make-obsolete 'buffer-left-margin-width
  253.            "use (specifier-specs left-margin-width ...).")
  254.  
  255. (defun buffer-right-margin-width (&optional buffer)
  256.   (specifier-specs right-margin-width (or buffer (current-buffer))))
  257. (make-obsolete 'buffer-right-margin-width
  258.            "use (specifier-specs right-margin-width ...).")
  259.  
  260. ;;;;;;;;;;;;;;;;;;;;;;;;;;;; modeline
  261.  
  262. (define-obsolete-function-alias 'redraw-mode-line 'redraw-modeline)
  263. (define-obsolete-function-alias 'force-mode-line-update
  264.   'redraw-modeline) ;; FSF compatibility
  265. (define-obsolete-variable-alias 'mode-line-map 'modeline-map)
  266. (define-obsolete-variable-alias 'mode-line-buffer-identification
  267.   'modeline-buffer-identification)
  268. (define-obsolete-variable-alias 'mode-line-process 'modeline-process)
  269. (define-obsolete-variable-alias 'mode-line-modified 'modeline-modified)
  270. (make-obsolete-variable 'mode-line-inverse-video
  271.             "use set-face-highlight-p and set-face-reverse-p")
  272. (define-obsolete-variable-alias 'default-mode-line-format
  273.   'default-modeline-format)
  274. (define-obsolete-variable-alias 'mode-line-format 'modeline-format)
  275. (define-obsolete-variable-alias 'mode-line-menu 'modeline-menu)
  276.  
  277. ;;;;;;;;;;;;;;;;;;;;;;;;;;;; device stuff
  278.  
  279. (make-obsolete-variable 'window-system "use (device-type)")
  280. (make-obsolete-variable 'meta-flag
  281.             "use the `set-input-mode' function instead.")
  282.  
  283. (defun x-display-color-p (&optional device)
  284.   "Returns non-nil if DEVICE is a color device."
  285.   (eq 'color (device-class device)))
  286. (make-obsolete 'x-display-color-p 'device-class)
  287.  
  288. (define-function 'x-color-display-p 'x-display-color-p)
  289. (make-obsolete 'x-display-color-p 'device-class)
  290.  
  291. (defun x-display-grayscale-p (&optional device)
  292.   "Returns non-nil if DEVICE is a grayscale device."
  293.   (eq 'grayscale (device-class device)))
  294. (make-obsolete 'x-display-grayscale-p 'device-class)
  295.  
  296. (define-function 'x-grayscale-display-p 'x-display-grayscale-p)
  297. (make-obsolete 'x-display-grayscale-p 'device-class)
  298.  
  299. (define-obsolete-function-alias 'x-display-pixel-width 'device-pixel-width)
  300. (define-obsolete-function-alias 'x-display-pixel-height
  301.   'device-pixel-height)
  302. (define-obsolete-function-alias 'x-display-planes 'device-bitplanes)
  303. (define-obsolete-function-alias 'x-display-color-cells 'device-color-cells)
  304.  
  305. (define-obsolete-function-alias 'baud-rate 'device-baud-rate)
  306.  
  307. ;;;;;;;;;;;;;;;;;;;;;;;;;;;; faces
  308.  
  309. (define-obsolete-function-alias 'list-faces-display 'edit-faces)
  310. (define-obsolete-function-alias 'list-faces 'face-list)
  311.  
  312. ;;;;;;;;;;;;;;;;;;;;;;;;;;;; files
  313.  
  314. (make-obsolete-variable 'trim-versions-without-asking 'delete-old-versions)
  315.  
  316. ;;; Old XEmacs name; kept around for compatibility.
  317. (put 'after-write-file-hooks 'permanent-local t)
  318. (make-obsolete-variable 'after-write-file-hooks 'after-save-hook)
  319. (defvar after-write-file-hooks nil
  320.   "")
  321.  
  322. ;;;;;;;;;;;;;;;;;;;;;;;;;;;; keymaps
  323.  
  324. (defun keymap-parent (keymap)
  325.   "Returns the first parent of the given keymap."
  326.   (car (keymap-parents keymap)))
  327. (make-obsolete 'keymap-parent 'keymap-parents)
  328.  
  329. (defun set-keymap-parent (keymap parent)
  330.   "Makes the given keymap have (only) the given parent."
  331.   (set-keymap-parents keymap (if parent (list parent) '()))
  332.   parent)
  333. (make-obsolete 'set-keymap-parent 'set-keymap-parents)
  334.  
  335. ;;;;;;;;;;;;;;;;;;;;;;;;;;;; menu stuff
  336.  
  337. (defun add-menu-item (menu-path item-name function enabled-p &optional before)
  338.   "Obsolete.  See the function `add-menu-button'."
  339.   (or item-name (error "must specify an item name"))
  340.   (add-menu-button menu-path (vector item-name function enabled-p) before))
  341. (make-obsolete 'add-menu-item 'add-menu-button)
  342.  
  343. (defun add-menu (menu-path menu-name menu-items &optional before)
  344.   "Obsolete.  See the function `add-submenu'."
  345.   (or menu-name (error (gettext "must specify a menu name")))
  346.   (or menu-items (error (gettext "must specify some menu items")))
  347.   (add-submenu menu-path (cons menu-name menu-items) before))
  348. (make-obsolete 'add-menu 'add-submenu)
  349.  
  350. ;;;;;;;;;;;;;;;;;;;;;;;;;;;; minibuffer
  351.  
  352. (define-obsolete-function-alias 'read-minibuffer
  353.   'read-expression) ; misleading name
  354.  
  355. ;;;;;;;;;;;;;;;;;;;;;;;;;;;; misc
  356.  
  357. ;; (defun user-original-login-name ()
  358. ;;   "Return user's login name from original login.
  359. ;; This tries to remain unaffected by `su', by looking in environment variables."
  360. ;;   (or (getenv "LOGNAME") (getenv "USER") (user-login-name)))
  361. (define-obsolete-function-alias 'user-original-login-name 'user-login-name)
  362.  
  363. (define-obsolete-function-alias 'menu-event-p 'misc-user-event-p)
  364.  
  365. ; old names
  366. (define-obsolete-function-alias 'read-input 'read-string)
  367. (define-obsolete-function-alias 'show-buffer 'set-window-buffer)
  368. (define-obsolete-function-alias 'buffer-flush-undo 'buffer-disable-undo)
  369. (define-obsolete-function-alias 'eval-current-buffer 'eval-buffer)
  370. (define-obsolete-function-alias 'byte-code-function-p
  371.   'compiled-function-p) ;FSFmacs
  372. (define-obsolete-function-alias 'truename 'file-truename)
  373.  
  374. ;;(make-obsolete 'mod '%)    ; mod and % are different now
  375. (make-obsolete 'read-no-blanks-input 'read-string) ; mocklisp crud
  376.  
  377. (make-obsolete 'ring-mod 'mod)
  378. (make-obsolete-variable 'auto-fill-hook 'auto-fill-function)
  379. (make-obsolete-variable 'blink-paren-hook 'blink-paren-function)
  380. (make-obsolete-variable 'lisp-indent-hook 'lisp-indent-function)
  381. (make-obsolete-variable 'comment-indent-hook 'comment-indent-function)
  382. (make-obsolete-variable 'temp-buffer-show-hook
  383.             'temp-buffer-show-function)
  384. (make-obsolete-variable 'inhibit-local-variables
  385.             "use `enable-local-variables' (with the reversed sense).")
  386. (make-obsolete-variable 'suspend-hooks 'suspend-hook)
  387. (make-obsolete-variable 'first-change-function 'first-change-hook)
  388. (make-obsolete-variable 'before-change-function 'before-change-functions)
  389. (make-obsolete-variable 'after-change-function 'after-change-functions)
  390. (make-obsolete-variable 'after-write-file-hooks 'after-save-hook)
  391.  
  392. (make-obsolete-variable 'unread-command-char 'unread-command-events)
  393. (make-obsolete 'current-time-seconds 'current-time)
  394. (make-obsolete 'sleep-for-millisecs "use sleep-for with a float")
  395. ;; too bad there's not a way to check for aref, assq, and nconc
  396. ;; being called on the values of functions known to return keymaps,
  397. ;; or known to return vectors of events instead of strings...
  398.  
  399. ;;;;;;;;;;;;;;;;;;;;;;;;;;;; mouse
  400.  
  401. ;;; (defun mouse-eval-last-sexpr (event)
  402. ;;;   (interactive "@e")
  403. ;;;   (save-excursion
  404. ;;;     (mouse-set-point event)
  405. ;;;     (eval-last-sexp nil)))
  406.  
  407. (define-obsolete-function-alias 'mouse-eval-last-sexpr 'mouse-eval-sexp)
  408.  
  409. (defun read-mouse-position (frame)
  410.   (cdr (mouse-position (frame-device frame))))
  411. (make-obsolete 'read-mouse-position 'mouse-position)
  412.  
  413. ;;;;;;;;;;;;;;;;;;;;;;;;;;;; window-system objects
  414.  
  415. (define-obsolete-function-alias 'pixel-name 'color-name)
  416.  
  417. ;; compatibility function -- a front-end to make-glyph
  418. (defun make-pixmap (name &optional locale)
  419.   "Create a glyph with NAME as a pixmap specifier and locale LOCALE.
  420. The file should be in `XBM' or `XPM' format.
  421. If the XBMLANGPATH environment variable is set, it will be searched for
  422.  matching files.  Next, the directories listed in the `x-bitmap-file-path'
  423.  variable will be searched (this variable is initialized from the
  424.  \"*bitmapFilePath\" resource).  Finally, the XEmacs etc/ directory
  425.  (the value of `data-directory') will be searched.
  426. The file argument may also be a list of the form (width height data) where
  427.  width and height are the size in pixels, and data is a string, containing
  428.  the raw bits of the bitmap.  (Bitmaps specified this way can only be one bit
  429.  deep.)
  430. If compiled with support for XPM, the file argument may also be a string
  431.  which is the contents of an XPM file (that is, a string beginning with the
  432.  characters \"/* XPM */\"; see the XPM documentation).
  433. The optional second argument is the specifier locale for this pixmap glyph.
  434. The returned object is a glyph object.  To get the actual pixmap object for
  435. a given frame, use the function `glyph-instance'."
  436.   (if (consp name)
  437.       (setq name (vector 'xbm :data name)))
  438.   (make-glyph name))
  439. (make-obsolete 'make-pixmap 'make-glyph)
  440.  
  441. (define-obsolete-function-alias 'pixmap-width 'glyph-width)
  442. (define-obsolete-function-alias 'pixmap-contributes-to-line-height-p
  443.   'glyph-contrib-p-instance)
  444. (define-obsolete-function-alias 'set-pixmap-contributes-to-line-height
  445.   'set-glyph-contrib-p)
  446. (define-obsolete-function-alias 'event-glyph 'event-glyph-extent)
  447.  
  448. ;;;;;;;;;;;;;;;;;;;;;;;;;;;; processes
  449.  
  450. (define-obsolete-function-alias 'send-string 'process-send-string)
  451. (define-obsolete-function-alias 'send-region 'process-send-region)
  452.  
  453.