Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-virtual.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents a145efe76779
children b980b6286996
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
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))))