Mercurial > hg > xemacs-beta

comparison lisp/subr.el @ 416:ebe98a74bd68 r21-2-16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-16
author cvs
date Mon, 13 Aug 2007 11:22:23 +0200
parents da8ed4261e83
children e804706bfb8c
comparison
equal deleted inserted replaced
415:a27f76b40c83 416:ebe98a74bd68
680 This makes or adds to an entry on `after-load-alist'. 680 This makes or adds to an entry on `after-load-alist'.
681 FILE should be the name of a library, with no directory name." 681 FILE should be the name of a library, with no directory name."
682 (eval-after-load file (read))) 682 (eval-after-load file (read)))
683 (make-compatible 'eval-next-after-load "") 683 (make-compatible 'eval-next-after-load "")
684 684
685 (unless (featurep 'mule)
686 (defun make-char (charset &optional arg1 arg2)
687 "Make a character from CHARSET and octets ARG1 and ARG2.
688 This function is available for compatibility with Mule-enabled XEmacsen.
689 When CHARSET is `ascii', return (int-char ARG1). Otherwise, return
690 that value with the high bit set. ARG2 is always ignored."
691 (int-char (if (eq charset 'ascii)
692 arg1
693 (logior arg1 #x80)))))
694
685 ; alternate names (not obsolete) 695 ; alternate names (not obsolete)
686 (if (not (fboundp 'mod)) (define-function 'mod '%)) 696 (if (not (fboundp 'mod)) (define-function 'mod '%))
687 (define-function 'move-marker 'set-marker) 697 (define-function 'move-marker 'set-marker)
688 (define-function 'beep 'ding) ; preserve lingual purity 698 (define-function 'beep 'ding) ; preserve lingual purity
689 (define-function 'indent-to-column 'indent-to) 699 (define-function 'indent-to-column 'indent-to)