Mercurial > hg > xemacs-beta

comparison lisp/abbrev.el @ 4009:7147a4dabc02

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-06-12 10:32:15 by adrian]
author adrian
date Tue, 12 Jun 2007 10:32:16 +0000
parents 69c43a181729
children 74d00c7cc134
comparison
equal deleted inserted replaced
4008:2aa7da5c70a5 4009:7147a4dabc02
580 (while (and (not (eobp)) 580 (while (and (not (eobp))
581 (progn (forward-word 1) 581 (progn (forward-word 1)
582 (<= (setq pnt (point)) (- (point-max) lim)))) 582 (<= (setq pnt (point)) (- (point-max) lim))))
583 (if (abbrev-expansion 583 (if (abbrev-expansion
584 (setq string 584 (setq string
585 (buffer-substring 585 (downcase (buffer-substring
586 (save-excursion (backward-word) (point)) 586 (save-excursion (backward-word) (point))
587 pnt))) 587 pnt))))
588 (if (or noquery (y-or-n-p (format "Expand `%s'? " string))) 588 (if (or noquery (y-or-n-p (format "Expand `%s'? " string)))
589 (expand-abbrev))))))) 589 (expand-abbrev)))))))
590 590
591 ;;; abbrev.el ends here 591 ;;; abbrev.el ends here