comparison lisp/subr.el @ 5128:7be849cb8828 ben-lisp-object

merge
author Ben Wing <ben@xemacs.org>
date Sun, 07 Mar 2010 02:09:59 -0600
parents 99f8ebc082d9
children 2e528066e2fc
comparison
equal deleted inserted replaced
5127:a9c41067dd88 5128:7be849cb8828
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