Mercurial > hg > xemacs-beta

comparison lisp/packages/func-menu.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 0293115a14e9
children 441bb1e64a06
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
448 448
449 (defvar fume-rescan-trigger-counter-buffer-size 10000 449 (defvar fume-rescan-trigger-counter-buffer-size 10000
450 "Used to tune the frequency of automatic checks on the buffer. 450 "Used to tune the frequency of automatic checks on the buffer.
451 The function fume-rescan-buffer-trigger only works whenever the value of the 451 The function fume-rescan-buffer-trigger only works whenever the value of the
452 variable fume-rescan-trigger-counter reaches zero, whereupon it gets reset to 452 variable fume-rescan-trigger-counter reaches zero, whereupon it gets reset to
453 buffer-size/fume-rescan-trigger-counter-buffer-size.") 453 the maximum of a) buffer-size/fume-rescan-trigger-counter-buffer-size
454 or b) fume-rescan-trigger-counter-min")
455
456 (defvar fume-rescan-trigger-counter-min 50
457 "Used to tune the frequency of automatic checks on the buffer.
458 The function fume-rescan-buffer-trigger only works whenever the value of the
459 variable fume-rescan-trigger-counter reaches zero, whereupon it gets reset to
460 the maximum of a) buffer-size/fume-rescan-trigger-counter-buffer-size
461 or b) fume-rescan-trigger-counter-min")
454 462
455 (fume-defvar-local 463 (fume-defvar-local
456 fume-sort-function 'fume-sort-by-name 464 fume-sort-function 'fume-sort-by-name
457 "*The function to use for sorting the function menu. 465 "*The function to use for sorting the function menu.
458 466
1777 "Automatically spots when a buffer rescan becomes necessary" 1785 "Automatically spots when a buffer rescan becomes necessary"
1778 (if fume-auto-rescan-buffer-p 1786 (if fume-auto-rescan-buffer-p
1779 (if (> fume-rescan-trigger-counter 0) 1787 (if (> fume-rescan-trigger-counter 0)
1780 (setq fume-rescan-trigger-counter (1- fume-rescan-trigger-counter)) 1788 (setq fume-rescan-trigger-counter (1- fume-rescan-trigger-counter))
1781 (setq fume-rescan-trigger-counter 1789 (setq fume-rescan-trigger-counter
1782 (/ (buffer-size) fume-rescan-trigger-counter-buffer-size)) 1790 (max fume-rescan-trigger-counter-min
1791 (/ (buffer-size) fume-rescan-trigger-counter-buffer-size)))
1783 (if (or fume-funclist-dirty-p 1792 (if (or fume-funclist-dirty-p
1784 (save-excursion 1793 (save-excursion
1785 (let (find fnam) 1794 (let (find fnam)
1786 (condition-case () 1795 (condition-case ()
1787 (and fume-function-name-regexp 1796 (and fume-function-name-regexp