← Back to branch summary

~vm/vm/before-save-hook

« back to all changes in this revision

Viewing changes to lisp/vm-thread.el

  • Committer: Uday S Reddy
  • Date: 2012-12-19 02:09:17 UTC
  • mfrom: (1465.1.3 trunk)
  • Revision ID: u.s.reddy@cs.bham.ac.uk-20121219020917-daz9udq72h576lzi
Merged back into the current branch.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/vm-thread.el
1066
1066
                 (setq root (vm-th-message-of id-sym))
1067
1067
                 ;; the ancestors of id-sym will be added.
1068
1068
                 ;; remove them if they were already added.
 
1069
                 (when (null root)
 
1070
                   (vm-thread-debug 'vm-build-thread-list 'invalid-subject-root)
 
1071
                   (signal 'vm-thread-error 
 
1072
                           (list 'vm-build-thread-list 'invalid-subject-root
 
1073
                                 (symbol-name subject-sym))))
 
1074
                 
1069
1075
                 (setq ancestors (remq id-sym (vm-thread-list root)))
1070
1076
                 (mapc (lambda (a)
1071
1077
                         (setq thread-list (remq a thread-list))