Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-misc.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents a145efe76779
children 8619ce7e4c50
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
216 (if (< vlength length) 216 (if (< vlength length)
217 (apply 'vector (nconc (vm-vector-to-list vector) 217 (apply 'vector (nconc (vm-vector-to-list vector)
218 (make-list (- length vlength) fill))) 218 (make-list (- length vlength) fill)))
219 vector ))) 219 vector )))
220 220
221 (defun vm-obarray-to-string-list (obarray) 221 (defun vm-obarray-to-string-list (blobarray)
222 (let ((list nil)) 222 (let ((list nil))
223 (mapatoms (function (lambda (s) (setq list (cons (symbol-name s) list)))) 223 (mapatoms (function (lambda (s) (setq list (cons (symbol-name s) list))))
224 obarray) 224 blobarray)
225 list )) 225 list ))
226 226
227 (defun vm-mapcar (function &rest lists) 227 (defun vm-mapcar (function &rest lists)
228 (let (arglist result) 228 (let (arglist result)
229 (while (car lists) 229 (while (car lists)
540 540
541 (if (fboundp 'overlay-put) 541 (if (fboundp 'overlay-put)
542 (fset 'vm-set-extent-property 'overlay-put) 542 (fset 'vm-set-extent-property 'overlay-put)
543 (fset 'vm-set-extent-property 'set-extent-property)) 543 (fset 'vm-set-extent-property 'set-extent-property))
544 544
545 (if (fboundp 'move-overlay)
546 (fset 'vm-set-extent-endpoints 'move-overlay)
547 (fset 'vm-set-extent-endpoints 'set-extent-endpoints))
548
545 (if (fboundp 'make-overlay) 549 (if (fboundp 'make-overlay)
546 (fset 'vm-make-extent 'make-overlay) 550 (fset 'vm-make-extent 'make-overlay)
547 (fset 'vm-make-extent 'make-extent)) 551 (fset 'vm-make-extent 'make-extent))
548 552
549 (if (fboundp 'overlay-end) 553 (if (fboundp 'overlay-end)
672 (if (and (equal 0 (string-match elt (car list))) 676 (if (and (equal 0 (string-match elt (car list)))
673 (= (match-end 0) (length (car list)))) 677 (= (match-end 0) (length (car list))))
674 (setq found t) 678 (setq found t)
675 (setq list (cdr list)))) 679 (setq list (cdr list))))
676 list)) 680 list))
681
682 (defmacro vm-assert (expression)
683 (list 'or expression
684 (list 'progn
685 (list 'setq 'debug-on-error t)
686 (list 'error "assertion failed: %S"
687 (list 'quote expression)))))