Mercurial > hg > xemacs-beta

comparison lisp/prim/obsolete.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 8fc7fe29b841
children ec9a17fef872
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
328 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; keymaps 328 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; keymaps
329 329
330 (defun keymap-parent (keymap) 330 (defun keymap-parent (keymap)
331 "Returns the first parent of the given keymap." 331 "Returns the first parent of the given keymap."
332 (car (keymap-parents keymap))) 332 (car (keymap-parents keymap)))
333 (make-obsolete 'keymap-parent 'keymap-parents) 333 (make-compatible 'keymap-parent 'keymap-parents)
334 334
335 (defun set-keymap-parent (keymap parent) 335 (defun set-keymap-parent (keymap parent)
336 "Makes the given keymap have (only) the given parent." 336 "Makes the given keymap have (only) the given parent."
337 (set-keymap-parents keymap (if parent (list parent) '())) 337 (set-keymap-parents keymap (if parent (list parent) '()))
338 parent) 338 parent)
339 (make-obsolete 'set-keymap-parent 'set-keymap-parents) 339 (make-compatible 'set-keymap-parent 'set-keymap-parents)
340 340
341 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; menu stuff 341 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; menu stuff
342 342
343 (defun add-menu-item (menu-path item-name function enabled-p &optional before) 343 (defun add-menu-item (menu-path item-name function enabled-p &optional before)
344 "Obsolete. See the function `add-menu-button'." 344 "Obsolete. See the function `add-menu-button'."
593 (define-obsolete-function-alias 'pixmap-contributes-to-line-height-p 593 (define-obsolete-function-alias 'pixmap-contributes-to-line-height-p
594 'glyph-contrib-p-instance) 594 'glyph-contrib-p-instance)
595 (define-obsolete-function-alias 'set-pixmap-contributes-to-line-height 595 (define-obsolete-function-alias 'set-pixmap-contributes-to-line-height
596 'set-glyph-contrib-p) 596 'set-glyph-contrib-p)
597 597
598 ;; the functionality of column.el has been moved into C
599 (defalias 'display-column-mode 'column-number-mode)
600
601 (defun x-color-values (color &optional frame)
602 "Return a description of the color named COLOR on frame FRAME.
603 The value is a list of integer RGB values--(RED GREEN BLUE).
604 These values appear to range from 0 to 65280 or 65535, depending
605 on the system; white is (65280 65280 65280) or (65535 65535 65535).
606 If FRAME is omitted or nil, use the selected frame."
607 (color-instance-rgb-components (make-color-instance color)))
608 (make-compatible 'x-color-values 'color-instance-rgb-components)
609
610 ;;; obsoloete.el ends here