Mercurial > hg > xemacs-beta

comparison lisp/subr.el @ 418:e804706bfb8c r21-2-17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-17
author cvs
date Mon, 13 Aug 2007 11:23:13 +0200
parents ebe98a74bd68
children 41dbb7a9d5f2
comparison
equal deleted inserted replaced
417:43a18b32d56e 418:e804706bfb8c
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
695 ; alternate names (not obsolete) 685 ; alternate names (not obsolete)
696 (if (not (fboundp 'mod)) (define-function 'mod '%)) 686 (if (not (fboundp 'mod)) (define-function 'mod '%))
697 (define-function 'move-marker 'set-marker) 687 (define-function 'move-marker 'set-marker)
698 (define-function 'beep 'ding) ; preserve lingual purity 688 (define-function 'beep 'ding) ; preserve lingual purity
699 (define-function 'indent-to-column 'indent-to) 689 (define-function 'indent-to-column 'indent-to)