Mercurial > hg > xemacs-beta
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) |