Mercurial > hg > xemacs-beta

comparison lisp/subr.el @ 5097:4a6b680a9577

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Thu, 04 Mar 2010 07:26:05 -0600
parents 99f8ebc082d9
children 2e528066e2fc
comparison
equal deleted inserted replaced
5096:e0587c615e8b 5097:4a6b680a9577
218 (define-function 'remove-directory 'delete-directory) 218 (define-function 'remove-directory 'delete-directory)
219 (define-function 'set-match-data 'store-match-data) 219 (define-function 'set-match-data 'store-match-data)
220 (define-function 'send-string-to-terminal 'external-debugging-output) 220 (define-function 'send-string-to-terminal 'external-debugging-output)
221 (define-function 'special-form-p 'special-operator-p) 221 (define-function 'special-form-p 'special-operator-p)
222 222
223 ;; XEmacs; this is in Lisp, its bytecode now taken by subseq.
224 (define-function 'substring 'subseq)
225
223 ;; XEmacs: 226 ;; XEmacs:
224 (defun local-variable-if-set-p (sym buffer) 227 (defun local-variable-if-set-p (sym buffer)
225 "Return t if SYM would be local to BUFFER after it is set. 228 "Return t if SYM would be local to BUFFER after it is set.
226 A nil value for BUFFER is *not* the same as (current-buffer), but 229 A nil value for BUFFER is *not* the same as (current-buffer), but
227 can be used to determine whether `make-variable-buffer-local' has been 230 can be used to determine whether `make-variable-buffer-local' has been