|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T m
Length: 1178 (0x49a)
Types: TextFile
Names: »mh-shell.ml«
└─⟦9ae75bfbd⟧ Bits:30007242 EUUGD3: Starter Kit
└─⟦3658e588a⟧ »EurOpenD3/mail/mh/mh-6.7.tar.Z«
└─⟦c75e36ecb⟧
└─⟦this⟧ »mh-6.7/miscellany/mhe/mh-shell.ml«
; These functions are used to run shell commands and check for errors.
; this file is loaded from mh-e with an explicit load command.
(defun
(send-to-shell pname progress
(save-excursion
(temp-use-buffer "mh-temp") (erase-buffer)
(insert-string (arg 1))
(beginning-of-file) (setq progress -1)
(while (& (! (eobp)) (< progress 50))
(beginning-of-line)
(setq progress (+ progress 1))
(if (! (eolp))
(progn
(set-mark) (end-of-line)
(setq pname (region-to-string))
(delete-to-killbuffer)
(fast-filter-region pname)
)
)
(next-line)
)
)
)
(show-shell-errors
(save-excursion
(temp-use-buffer "mh-temp")
(if (!= (buffer-size) 0)
(progn
(pop-to-buffer "mh-temp")
(sit-for 0)
(beginning-of-file) (set-mark)
(error-occured (re-replace-string "\n\n* *" "; "))
(end-of-line)
(backward-character) (backward-character)
(kill-to-end-of-line)
(send-string-to-terminal "\▶07◀")
(message (region-to-string))
(send-string-to-terminal "\▶07◀")
(sit-for 15)
)
)
)
)
)