Mercurial > hg > xemacs-beta

comparison lisp/occur.el @ 4103:b4f4e0cc90f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-08-07 23:08:47 by aidan] Eliminate byte compiler warnings, give nicer errors in the absence of packages.
author aidan
date Tue, 07 Aug 2007 23:09:22 +0000
parents b593e47979a5
children ed74d2ca7082 308d34e9f07d
comparison
equal deleted inserted replaced
4102:9856d458deda 4103:b4f4e0cc90f1
465 (setq begpt (line-beginning-position) 465 (setq begpt (line-beginning-position)
466 endpt (line-end-position))) 466 endpt (line-end-position)))
467 (setq marker (make-marker)) 467 (setq marker (make-marker))
468 (set-marker marker matchbeg) 468 (set-marker marker matchbeg)
469 (if (and keep-props 469 (if (and keep-props
470 (if (boundp 'jit-lock-mode) jit-lock-mode) 470 (if-boundp 'jit-lock-mode jit-lock-mode)
471 (text-property-not-all begpt endpt 'fontified t)) 471 (text-property-not-all begpt endpt 'fontified t))
472 (if (fboundp 'jit-lock-fontify-now) 472 (if-fboundp #'jit-lock-fontify-now
473 (jit-lock-fontify-now begpt endpt))) 473 (jit-lock-fontify-now begpt endpt)))
474 (setq curstring (buffer-substring begpt endpt)) 474 (setq curstring (buffer-substring begpt endpt))
475 ;; Depropertize the string, and maybe 475 ;; Depropertize the string, and maybe
476 ;; highlight the matches 476 ;; highlight the matches
477 (let ((len (length curstring)) 477 (let ((len (length curstring))