comparison lisp/cl-extra.el @ 776:79940b592197

[xemacs-hg @ 2002-03-15 07:43:14 by ben] .cvsignore: ignore .tmp files that are getting auto-created by VC. Makefile.in.in: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs). alloc.c, emacs.c, lisp.h: add new -no-packages. make sure list of args for sorting is actually correct. clean up arg parsing code. xemacs.mak: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs). Makefile: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs). mule\chinese.el, mule\japan-util.el: fix warnings. behavior-defs.el: fix errors with require. bytecomp-runtime.el: add new funs {when,and}-{f}boundp, clean up docs. cus-edit.el: pretty-print values. dump-paths.el, find-paths.el, startup.el, setup-paths.el: fix problems/inconsistencies parsing options. support new -no-packages option. merge code duplication in dump-paths and startup. lisp-mode.el: indent macrolet and labels correctly. update comments about lisp-indent-function. flet already handled in cl. apropos.el, auto-save.el, buff-menu.el, cl-extra.el, dragdrop.el, faces.el, files.el, fill.el, font-lock.el, font.el, gtk-faces.el, gui.el, help.el, hyper-apropos.el, info.el, isearch-mode.el, keymap.el, lisp-mnt.el, mouse.el, package-admin.el, package-get.el, printer.el, process.el, resize-minibuffer.el, simple.el, toolbar-items.el, wid-edit.el, win32-native.el: fix warnings. very-early-lisp.el: update docs. mule\chinese.el, mule\japan-util.el: fix warnings. mule\chinese.el, mule\japan-util.el: fix warnings. behavior-defs.el: fix errors with require. bytecomp-runtime.el: add new funs {when,and}-{f}boundp, clean up docs. cus-edit.el: pretty-print values. dump-paths.el, find-paths.el, startup.el, setup-paths.el: fix problems/inconsistencies parsing options. support new -no-packages option. merge code duplication in dump-paths and startup. lisp-mode.el: indent macrolet and labels correctly. update comments about lisp-indent-function. flet already handled in cl. apropos.el, auto-save.el, buff-menu.el, cl-extra.el, dragdrop.el, faces.el, files.el, fill.el, font-lock.el, font.el, gtk-faces.el, gui.el, help.el, hyper-apropos.el, info.el, isearch-mode.el, keymap.el, lisp-mnt.el, mouse.el, package-admin.el, package-get.el, printer.el, process.el, resize-minibuffer.el, simple.el, toolbar-items.el, wid-edit.el, win32-native.el: fix warnings. very-early-lisp.el: update docs. mule\chinese.el, mule\japan-util.el: fix warnings. Makefile.in.in: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs). Makefile.in.in: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs).
author ben
date Fri, 15 Mar 2002 07:43:43 +0000
parents 023b83f4e54b
children 2b676dc88c66
comparison
equal deleted inserted replaced
775:7d972c3de90a 776:79940b592197
282 (save-excursion 282 (save-excursion
283 (set-buffer cl-what) 283 (set-buffer cl-what)
284 (setq cl-mark (copy-marker (or cl-start (point-min)))) 284 (setq cl-mark (copy-marker (or cl-start (point-min))))
285 (setq cl-mark2 (and cl-end (copy-marker cl-end)))) 285 (setq cl-mark2 (and cl-end (copy-marker cl-end))))
286 (while (and cl-next (or (not cl-mark2) (< cl-mark cl-mark2))) 286 (while (and cl-next (or (not cl-mark2) (< cl-mark cl-mark2)))
287 (setq cl-next (and (fboundp 'next-property-change) 287 (setq cl-next (and-fboundp 'next-property-change
288 (if cl-prop (next-single-property-change 288 (if cl-prop (next-single-property-change
289 cl-mark cl-prop cl-what) 289 cl-mark cl-prop cl-what)
290 (next-property-change cl-mark cl-what))) 290 (next-property-change cl-mark cl-what)))
291 cl-next2 (or cl-next (save-excursion 291 cl-next2 (or cl-next (save-excursion
292 (set-buffer cl-what) (point-max)))) 292 (set-buffer cl-what) (point-max))))
293 (funcall cl-func (prog1 (marker-position cl-mark) 293 (funcall cl-func (prog1 (marker-position cl-mark)
294 (set-marker cl-mark cl-next2)) 294 (set-marker cl-mark cl-next2))
295 (if cl-mark2 (min cl-next2 cl-mark2) cl-next2))) 295 (if cl-mark2 (min cl-next2 cl-mark2) cl-next2)))
296 (set-marker cl-mark nil) (if cl-mark2 (set-marker cl-mark2 nil))) 296 (set-marker cl-mark nil) (if cl-mark2 (set-marker cl-mark2 nil)))
297 (or cl-start (setq cl-start 0)) 297 (or cl-start (setq cl-start 0))
298 (or cl-end (setq cl-end (length cl-what))) 298 (or cl-end (setq cl-end (length cl-what)))
299 (while (< cl-start cl-end) 299 (while (< cl-start cl-end)
300 (let ((cl-next (or (and (fboundp 'next-property-change) 300 (let ((cl-next (or (and-fboundp 'next-property-change
301 (if cl-prop (next-single-property-change 301 (if cl-prop (next-single-property-change
302 cl-start cl-prop cl-what) 302 cl-start cl-prop cl-what)
303 (next-property-change cl-start cl-what))) 303 (next-property-change cl-start cl-what)))
304 cl-end))) 304 cl-end)))
305 (funcall cl-func cl-start (min cl-next cl-end)) 305 (funcall cl-func cl-start (min cl-next cl-end))
306 (setq cl-start cl-next))))) 306 (setq cl-start cl-next)))))
307 307
308 (defun cl-map-overlays (cl-func &optional cl-buffer cl-start cl-end cl-arg) 308 (defun cl-map-overlays (cl-func &optional cl-buffer cl-start cl-end cl-arg)