Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-virtual.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents 441bb1e64a06
children 05472e90ae02
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
507 (set-buffer (car bp)) 507 (set-buffer (car bp))
508 (setq vm-real-buffers (delq b vm-real-buffers)) 508 (setq vm-real-buffers (delq b vm-real-buffers))
509 ;; set the message pointer to a new value if it is 509 ;; set the message pointer to a new value if it is
510 ;; now invalid. 510 ;; now invalid.
511 (cond 511 (cond
512 ((equal "Q" (vm-message-id-number-of (car vm-message-pointer))) 512 ((and vm-message-pointer
513 (equal "Q" (vm-message-id-number-of
514 (car vm-message-pointer))))
513 (vm-garbage-collect-message) 515 (vm-garbage-collect-message)
514 (setq vmp vm-message-pointer) 516 (setq vmp vm-message-pointer)
515 (while (and vm-message-pointer 517 (while (and vm-message-pointer
516 (equal "Q" (vm-message-id-number-of 518 (equal "Q" (vm-message-id-number-of
517 (car vm-message-pointer)))) 519 (car vm-message-pointer))))