Mercurial > hg > xemacs-beta
comparison lisp/modes/lazy-shot.el @ 211:78478c60bfcd r20-4b4
Import from CVS: tag r20-4b4
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:05:51 +0200 |
| parents | 41ff10fd062f |
| children |
comparison
equal
deleted
inserted
replaced
| 210:49f55ca3ba57 | 211:78478c60bfcd |
|---|---|
| 258 (defun lazy-shot-unstall-after-fontify () | 258 (defun lazy-shot-unstall-after-fontify () |
| 259 (lazy-shot-unstall 1)) | 259 (lazy-shot-unstall 1)) |
| 260 | 260 |
| 261 (defun lazy-shot-unstall (&optional no-fontify) | 261 (defun lazy-shot-unstall (&optional no-fontify) |
| 262 ;; Stop the timer | 262 ;; Stop the timer |
| 263 (when lazy-shot-stealth-timer | 263 (when (and (boundp 'lazy-shot-stealth-timer) lazy-shot-stealth-timer) |
| 264 (delete-itimer lazy-shot-stealth-timer) | 264 (delete-itimer lazy-shot-stealth-timer) |
| 265 (setq lazy-shot-stealth-timer nil)) | 265 (setq lazy-shot-stealth-timer nil)) |
| 266 ;; Remove the extents. | 266 ;; Remove the extents. |
| 267 (map-extents | 267 (map-extents |
| 268 (lambda (e arg) (delete-extent e) nil) | 268 (lambda (e arg) (delete-extent e) nil) |