← Back to branch summary

~reddyuday/vm/message

« back to all changes in this revision

Viewing changes to lisp/vm-thread.el

  • Committer: Uday S Reddy
  • Date: 2012-01-03 16:49:23 UTC
  • Revision ID: u.s.reddy@cs.bham.ac.uk-20120103164923-bop0mgk7bh53morm
https://launchpad.net/bugs/771199
Uniformly added buffer-name to minibuffer messages.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/vm-thread.el
615
615
         (vm-thread-subtree id-sym)))
616
616
     vm-thread-obarray)
617
617
    (when (> n modulus)
618
 
      (vm-inform 6 "Building threads... done"))))
 
618
      (vm-inform 6 "%s: Building threads... done" (buffer-name)))))
619
619
 
620
620
(defun vm-build-reference-threads (mlist schedule-reindents initializing)
621
621
  "Build reference threads for all the messages in MLIST.  If threads are
662
662
        ;; set the parent of m.
663
663
        ;; if there was a parent already, update it consistently.
664
664
        (if (not (vm-th-safe-parent-p id-sym parent-sym))
665
 
            (vm-inform 10 "Unsafe thread parent detected for %s: %s"
666
 
                           (symbol-name id-sym) (symbol-name parent-sym))
 
665
            (vm-inform 10 "%s: Unsafe thread parent detected for %s: %s"
 
666
                       (buffer-name)
 
667
                       (symbol-name id-sym) (symbol-name parent-sym))
667
668
          (if (member (symbol-name id-sym) vm-traced-message-ids)
668
669
              (vm-thread-debug 'vm-build-reference-threads-1 id-sym))     
669
670
          (cond ((null (vm-th-parent-of id-sym))
698
699
      ;; { NODE /\ CACHE0 (id-sym) }
699
700
      (setq mp (cdr mp) n (1+ n))
700
701
      (if (zerop (% n modulus))
701
 
          (vm-inform 7 "Building threads... %d%%" (* (/ (+ n 0.0) total) 100))))
 
702
          (vm-inform 7 "%s: Building threads... %d%%" 
 
703
                     (buffer-name) (* (/ (+ n 0.0) total) 100))))
702
704
 
703
705
    ;; use the References header to set parenting information
704
706
    ;; for ancestors of this message.  This does not override
717
719
              (setq id-sym (intern (car refs) vm-thread-obarray))
718
720
              (when (null (vm-th-parent-of id-sym))
719
721
                (if (not (vm-th-safe-parent-p id-sym parent-sym))
720
 
                    (vm-inform 10 "Unsafe reference parent detected for %s: %s"
 
722
                    (vm-inform 10 "%s: Unsafe reference parent detected for %s: %s"
 
723
                               (buffer-name)
721
724
                               (symbol-name id-sym) (symbol-name parent-sym))
722
725
                  (if (member (symbol-name id-sym) vm-traced-message-ids)
723
726
                      (vm-thread-debug 'vm-build-reference-threads-2 id-sym))
731
734
                    refs (cdr refs)))))
732
735
      (setq mp (cdr mp) n (1+ n))
733
736
      (if (zerop (% n modulus))
734
 
          (vm-inform 7 "Building threads... %d%%" (* (/ (+ n 0.0) total) 100)))
 
737
          (vm-inform 7 "%s: Building threads... %d%%" 
 
738
                     (buffer-name) (* (/ (+ n 0.0) total) 100)))
735
739
      )))
736
740
 
737
741
(defun vm-th-clear-thread-lists (id-sym)
872
876
      ;; -------------- end atomic block ----------------------------------
873
877
      (setq mp (cdr mp) n (1+ n))
874
878
      (when (zerop (% n modulus))
875
 
        (vm-inform 7 "Building threads... %d" n)))))
 
879
        (vm-inform 7 "%s: Building threads... %d" (buffer-name) n)))))
876
880
 
877
881
;; used by the thread sort code.
878
882
;;
1484
1488
          ml)
1485
1489
    ;; Recover from errors
1486
1490
    (when errors-found
1487
 
      (vm-warn 0 2 (concat "Problem detected with the threads database; "
1488
 
                       "try vm-fix-my-summary"))
 
1491
      (vm-warn 0 2 (concat "%s: Problem detected with the threads database; "
 
1492
                       "try vm-fix-my-summary")
 
1493
               (buffer-name))
1489
1494
      ;; (setq vm-thread-obarray 'bonk)
1490
1495
      ;; (setq vm-thread-subject-obarray 'bonk)
1491
1496
      ))))