Mercurial > hg > xemacs-beta

comparison lisp/subr.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents d883f39b8495
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
86 86
87 ;;;; Obsolescent names for functions. 87 ;;;; Obsolescent names for functions.
88 ;; XEmacs: not used. 88 ;; XEmacs: not used.
89 89
90 ;; XEmacs: 90 ;; XEmacs:
91 (define-function 'not 'null)
92 (define-function-when-void 'numberp 'integerp) ; different when floats
93
94 (defun local-variable-if-set-p (sym buffer) 91 (defun local-variable-if-set-p (sym buffer)
95 "Return t if SYM would be local to BUFFER after it is set. 92 "Return t if SYM would be local to BUFFER after it is set.
96 A nil value for BUFFER is *not* the same as (current-buffer), but 93 A nil value for BUFFER is *not* the same as (current-buffer), but
97 can be used to determine whether `make-variable-buffer-local' has been 94 can be used to determine whether `make-variable-buffer-local' has been
98 called on SYM." 95 called on SYM."
584 ;; These are fixed-up when abbrev.el loads. 581 ;; These are fixed-up when abbrev.el loads.
585 (setq abbrev-table-name-list 582 (setq abbrev-table-name-list
586 (cons (cons name defs) 583 (cons (cons name defs)
587 abbrev-table-name-list))))))) 584 abbrev-table-name-list)))))))
588 585
589 (defun functionp (object) 586 ;;; `functionp' has been moved into C.
590 "Non-nil if OBJECT can be called as a function." 587
591 (or (and (symbolp object) (fboundp object)) 588 ;;(defun functionp (object)
592 (subrp object) 589 ;; "Non-nil if OBJECT can be called as a function."
593 (compiled-function-p object) 590 ;; (or (and (symbolp object) (fboundp object))
594 (eq (car-safe object) 'lambda))) 591 ;; (subrp object)
592 ;; (compiled-function-p object)
593 ;; (eq (car-safe object) 'lambda)))
595 594
596 595
597 596
598 (defun function-interactive (function) 597 (defun function-interactive (function)
599 "Return the interactive specification of FUNCTION. 598 "Return the interactive specification of FUNCTION.