;ELC ;;; compiled by scartinh@nonsense on Sat Mar 12 13:46:31 1994 ;;; from file /home/manual/dsp.el ;;; emacs version 19.22.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÀÅÆ\"ˆÀÇÈ\"ˆÀÉÊ\"ˆÀËÌ\"ˆÍÎË\"‡" [defalias get-pids #[nil "ÀÁ!ÂÃOÅ !Ç!‰‡" [shell-command "ps | grep Mosaic" 0 5 the-pid-string string-to-int the-pid-int int-to-string] 3 nil nil] tmp-file-contents #[nil "ÀÂà P‰‡" ["goto" line-1 "file://localhost" buffer-file-name line-2] 2 nil nil] remove-old-tmp-file #[nil "À PÃ\n!… Ä\n!‡" ["/tmp/Mosaic." the-pid-string the-tmp-file file-exists-p delete-file] 2 nil nil] create-new-tmp-file #[nil "À !ˆÂ !ˆÄ ˆÂ !ˆÄ ˆÆÇ!ˆÈÉ!‡" [find-file the-tmp-file insert-string line-1 newline line-2 save-buffer 0 kill-buffer nil] 2 nil nil] tell-mosaic #[nil "À PÃ\n!‡" ["kill -USR1 " the-pid-string the-command shell-command] 2 nil nil] dsp #[nil "ÀÁ!ˆÂ ˆÃ ˆÄ ˆÅ ˆÆ ‡" [save-buffer 0 get-pids tmp-file-contents remove-old-tmp-file create-new-tmp-file tell-mosaic] 2 nil nil] global-set-key [262241]] 3)