Return to emh-list.ml CVS log

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

Annotation of 43BSD/contrib/mh/miscellany/emh/emh-list.ml, revision 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.