Return to emh-list.ml CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / mh / miscellany / emh

Annotation of 43BSDReno/contrib/mh/miscellany/emh/emh-list.ml, revision 1.1.1.1

1.1       root        1: ; emh-list.ml :: implements the emh list command
                      2: ; Wed Oct  5 23:57:39 1983     /mtr  <mrose@uci-750a>
                      3: 
                      4: 
                      5: (if (! (is-bound &mhlist))
                      6:     (setq-default &mhlist "MH folders"))
                      7: 
                      8: (defun 
                      9:     
                     10:     (&mh-folders &args
                     11:        (setq &args 
                     12:              (if (| prefix-argument-provided (> (nargs) 0))
                     13:                  (arg 1 ": mh-folders (args) ") ""))
                     14:        (if (>= (process-status &mhlist) 0)
                     15:            (error-message "already listing folders"))
                     16:        (error-occured (delete-buffer &mhlist))
                     17:        (save-excursion 
                     18:            (temp-use-buffer &mhlist)
                     19:            (setq needs-checkpointing 0)
                     20:            (erase-buffer)
                     21:            (&mh-start-process
                     22:                (concat "folders" (if (!= &args "") (concat " " &args) ""))
                     23:                &mhlist)
                     24:            (insert-sentinel &mhlist "&mh-list-sentinel")
                     25:            (setq mode-string "Starting")
                     26:            (setq mode-line-format "  %b: in progress  %M"))
                     27:        
                     28:        (novalue)
                     29:     )
                     30:     
                     31:     (&mh-list-sentinel &flag &text
                     32:        (setq &flag (>> prefix-argument 16))
                     33:        (setq &text (process-output))
                     34:        (save-excursion 
                     35:            (temp-use-buffer MPX-process)
                     36:            (setq mode-string (substr &text 1 (- (length &text) 1)))
                     37:            (if (= mode-string "Exited")
                     38:                (progn 
                     39:                       (error-occured (normal-mode))
                     40:                       (setq mode-line-format
                     41:                             "  %b: ESC-^V to scroll (%m) %M %[%p%]"))))
                     42:        (dot-is-visible)        ; hack...
                     43:        (if (bitwise-and &flag 12)
                     44:            (save-excursion (pop-to-buffer MPX-process) (beginning-of-file)))
                     45:     )
                     46: )
                     47: 
                     48: (novalue)
                     49: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.