Mercurial > hg > xemacs-beta

comparison lisp/prim/obsolete.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children 0d2f883870bc
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
355 ;; This tries to remain unaffected by `su', by looking in environment variables." 355 ;; This tries to remain unaffected by `su', by looking in environment variables."
356 ;; (or (getenv "LOGNAME") (getenv "USER") (user-login-name))) 356 ;; (or (getenv "LOGNAME") (getenv "USER") (user-login-name)))
357 (define-obsolete-function-alias 'user-original-login-name 'user-login-name) 357 (define-obsolete-function-alias 'user-original-login-name 'user-login-name)
358 358
359 ; old names 359 ; old names
360 (define-obsolete-function-alias 'wholenump 'natnump)
360 (define-obsolete-function-alias 'show-buffer 'set-window-buffer) 361 (define-obsolete-function-alias 'show-buffer 'set-window-buffer)
361 (define-obsolete-function-alias 'buffer-flush-undo 'buffer-disable-undo) 362 (define-obsolete-function-alias 'buffer-flush-undo 'buffer-disable-undo)
362 (define-obsolete-function-alias 'eval-current-buffer 'eval-buffer) 363 (define-obsolete-function-alias 'eval-current-buffer 'eval-buffer)
363 (define-obsolete-function-alias 'byte-code-function-p 364 (define-obsolete-function-alias 'byte-code-function-p
364 'compiled-function-p) ;FSFmacs 365 'compiled-function-p) ;FSFmacs