Mercurial > hg > xemacs-beta

comparison lisp/obsolete.el @ 777:e65d9cf16707

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-03-15 11:00:28 by ben] config.h.in, sysdep.c, sysfile.h, systime.h: add HAVE_SYS_TIMES_H and use it to include sys/times.h, used for struct tms in new POSIX() function times(). mule\mule-charset.el, obsolete.el, subr.el: Put back previously-deleted truncate-string-to-width. Move other non-Mule-specific stuff into subr.el or obsolete.el. configure.in: check for sys/times.h.
author ben
date Fri, 15 Mar 2002 11:00:56 +0000
parents 943eaba38521
children accc481aef34
comparison
equal deleted inserted replaced
776:79940b592197 777:e65d9cf16707
1 ;;; obsolete.el --- obsoleteness support 1 ;;; obsolete.el --- obsoleteness support
2 2
3 ;; Copyright (C) 1985-1994, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985-1994, 1997 Free Software Foundation, Inc.
4 ;; Copyright (C) 1994, 1995 Amdahl Corporation. 4 ;; Copyright (C) 1994, 1995 Amdahl Corporation.
5 ;; Copyright (C) 1995 Sun Microsystems. 5 ;; Copyright (C) 1995 Sun Microsystems.
6 ;; Copyright (C) 2002 Ben Wing.
6 7
7 ;; Maintainer: XEmacs Development Team 8 ;; Maintainer: XEmacs Development Team
8 ;; Keywords: internal, dumped 9 ;; Keywords: internal, dumped
9 10
10 ;; This file is part of XEmacs. 11 ;; This file is part of XEmacs.
296 (defun redraw-display (&optional device) 297 (defun redraw-display (&optional device)
297 (if (eq device t) 298 (if (eq device t)
298 (mapcar 'redisplay-device (device-list)) 299 (mapcar 'redisplay-device (device-list))
299 (redisplay-device device))) 300 (redisplay-device device)))
300 301
302 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; strings
303
304 (define-obsolete-function-alias 'sref 'aref)
305
306 (defun char-bytes (character)
307 "Return number of bytes a CHARACTER occupies in a string or buffer.
308 It always returns 1 in XEmacs, and in recent FSF Emacs versions."
309 1)
310 (make-obsolete 'char-bytes "This function always returns 1")
311
301 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; window-system objects 312 ;;;;;;;;;;;;;;;;;;;;;;;;;;;; window-system objects
302 313
303 ;; the functionality of column.el has been moved into C 314 ;; the functionality of column.el has been moved into C
304 ;; Function obsoleted for XEmacs 20.0/February 1997. 315 ;; Function obsoleted for XEmacs 20.0/February 1997.
305 (defalias 'display-column-mode 'column-number-mode) 316 (defalias 'display-column-mode 'column-number-mode)