Mercurial > hg > xemacs-beta

comparison lisp/occur.el @ 3017:1e7cc382eb16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-10-24 10:07:26 by ben] refactor mc-alloc dependencies next-error.el, occur.el: Fix some byte-compile warnings. alloc.c, buffer.c, buffer.h, casetab.c, casetab.h, charset.h, chartab.c, chartab.h, console-impl.h, console-msw-impl.h, console.c, data.c, database.c, device-impl.h, device-msw.c, device.c, dialog-msw.c, elhash.c, events.h, extents-impl.h, extents.c, faces.c, faces.h, file-coding.c, file-coding.h, frame-impl.h, frame.c, glyphs.c, glyphs.h, gui.c, gui.h, keymap.c, lisp.h, lrecord.h, lstream.c, lstream.h, mule-charset.c, objects-impl.h, objects.c, opaque.c, opaque.h, print.c, process.c, procimpl.h, rangetab.c, rangetab.h, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, scrollbar.h, specifier.c, specifier.h, symbols.c, symeval.h, toolbar.c, toolbar.h, tooltalk.c, ui-gtk.c, ui-gtk.h, unicode.c, window-impl.h, window.c: Eliminate the majority of #ifdef MC_ALLOC occurrences through macros LCRECORD_HEADER, ALLOC_LCRECORD_TYPE, MALLOCED_STORAGE_SIZE, etc. (defined in lrecord.h).
author ben
date Mon, 24 Oct 2005 10:07:42 +0000
parents 5df5ea55d3fc
children 42f7d9eb33a4
comparison
equal deleted inserted replaced
3016:f252275fb013 3017:1e7cc382eb16
245 (eobp) 245 (eobp)
246 (bobp)))) 246 (bobp))))
247 (setq count (+ count (if forwardp -1 1))) 247 (setq count (+ count (if forwardp -1 1)))
248 (setq beg (line-beginning-position) 248 (setq beg (line-beginning-position)
249 end (line-end-position)) 249 end (line-end-position))
250 (if (and keep-props (if (boundp 'jit-lock-mode) jit-lock-mode) 250 (if (and keep-props (if-boundp 'jit-lock-mode jit-lock-mode)
251 (text-property-not-all beg end 'fontified t)) 251 (text-property-not-all beg end 'fontified t))
252 (if (fboundp 'jit-lock-fontify-now) 252 (if-fboundp 'jit-lock-fontify-now
253 (jit-lock-fontify-now beg end))) 253 (jit-lock-fontify-now beg end)))
254 (push 254 (push
255 (funcall (if keep-props 255 (funcall (if keep-props
256 #'buffer-substring 256 #'buffer-substring
257 #'buffer-substring-no-properties) 257 #'buffer-substring-no-properties)
322 ;;;###autoload 322 ;;;###autoload
323 (defun multi-occur (bufs regexp &optional nlines) 323 (defun multi-occur (bufs regexp &optional nlines)
324 "Show all lines in buffers BUFS containing a match for REGEXP. 324 "Show all lines in buffers BUFS containing a match for REGEXP.
325 This function acts on multiple buffers; otherwise, it is exactly like 325 This function acts on multiple buffers; otherwise, it is exactly like
326 `occur'." 326 `occur'."
327 (defvar ido-ignore-item-temp-list)
327 (interactive 328 (interactive
328 (cons 329 (cons
329 (let* ((bufs (list (read-buffer "First buffer to search: " 330 (let* ((bufs (list (read-buffer "First buffer to search: "
330 (current-buffer) t))) 331 (current-buffer) t)))
331 (buf nil) 332 (buf nil)