;ELC ;;; Compiled by nocturne@mit.edu on Sun Aug 11 15:29:56 2002 ;;; from file /mit/nocturne/home/lib/elisp/myutils.el ;;; in Emacs version 21.1.1 ;;; with bytecomp version 2.85 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`myutils.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@143 Inserts STRING at the beginning of every line in the region. Called interactively, STRING defaults to '> ' unless a prefix argument is given. (defalias 'highlight-region #[(string) "\212n\203\301y\210\214`\302 }\210eb\210\303\304\"*\207" [string -1 mark replace-regexp "^"] 3 (#$ . 603) (list (if current-prefix-arg (read-string "String to insert: ") "> "))]) (defalias 'try-attach #[nil "\303\304\"\2055\305\224\305\225O\306\307 P!?\2054\310\311\312 \"!\210\313\314!\210\315\316\317\211\211 %\210\317\320\321\217\2054\317\322)\207" [buffer-file-name filsys error string-match "^/mit/\\([^/]+\\)/" 1 file-exists-p "/mit/" princ format "Attaching %s..." sit-for 0 call-process "attach" nil (insert-file-contents filename t) ((file-error)) t] 6]) (defalias 'my-check-file-exists #[(filename) "\301!\205\207" [filename file-readable-p] 2]) (defalias 'filter-nils #[(list) "\205@\204\301A!\207@\301A!B\207" [list filter-nils] 3]) (byte-code "\301\302\207" [mail-setup-hook #[nil "\212\203 \302y\210\202\303y\210 \203!\304\305 \"\203\306\202*\307\202*\203)\310\202*\307c)\207" [to cc -1 2 string-match "webmaster@mit\\.edu" "Reply-to: webmaster@mit.edu\n" "" "Reply-To: nocturne@mit.edu\n"] 3] nil] 1) #@61 Select the next buffer, regardless of which frame it is on. (defalias 'nifty-next-buffer #[nil "\300\301\302 \303\211#!\207" [select-window next-window selected-window t] 5 (#$ . 1842) nil]) #@65 Select the previous buffer, regardless of which frame it is on. (defalias 'nifty-prev-buffer #[nil "\300\301\302 \303\211#!\207" [select-window previous-window selected-window t] 5 (#$ . 2039) nil]) #@2  (defalias 'my-new-frame #[nil "\300\301\302\303 PB\304\305 BD!\207" [new-frame name "emacs@" system-name minibuffer minibuffer-window] 4 (#$ . 2243) nil]) #@2  (defalias 'webmaster #[nil "\300 \210\301y\210\302c\210\303y\210\304c\210\305y\210\306\207" [mail 1 "bcc: webm.discuss@charon.mit.edu\n" 3 "Reply-to: webmaster@mit.edu\n" -6 nil] 1 (#$ . 2404) nil]) #@2  (defalias 'ws #[nil "db\210\300c\210\301c\207" [" - Eric Mumpower\n" " for the MIT SIPB Webmasters\n"] 1 (#$ . 2610) nil]) #@47 Exit emacs, but only after the user confirms. (defalias 'query-save-buffers-kill-emacs #[nil "\300\301!\205\302 \207" [y-or-n-p "Really exit emacs? " save-buffers-kill-emacs] 2 (#$ . 2741) nil]) (defalias 'hide-region #[(begin end) "\305\306 \n\307\310$\210)\311\311\211\207" [buffer-read-only begin end selective-display selective-display-ellipses nil subst-char-in-region 10 13 t] 5 nil "r"]) (defalias 'unhide-region #[(begin end) "\303\304 \n\305\306$)\207" [buffer-read-only begin end nil subst-char-in-region 13 10] 5 nil "r"]) #@268 Find where the Emacs Lisp library FILE is in the current '`load-path'. Tries appending ".el" and ".elc" unless the file already ends in one of these suffixes. If a prefix arg is given or the filename ends in ".elc" then the filename is searched for without changes. (defalias 'searchlib #[(file &optional explicit-name) "\n\204 \306\307 \"\203 \202 \310P\306\311 \"\205\n?\312\211 \203r \204r @\203k\313 @\306\314 @\"\203@\315\202A\316 Q\211!\204h\f\203k\313 @\306\314 @\"\203]\315\202^\316 \317R\211!\203k A\211\204( -\207" [load-path path explicit-name file try-elc-too found string-match ".elc?\\'" ".el" ".el\\'" nil file-exists-p "/\\'" "" "/" "c" test-file] 6 (#$ . 3288) "sSearch for library: \nP"]) #@268 Find where the Emacs Lisp library FILE is in the current '`load-path'. Tries appending ".el" and ".elc" unless the file already ends in one of these suffixes. If a prefix arg is given or the filename ends in ".elc" then the filename is searched for without changes. (defalias 'wherelib #[(file &optional explicit-name) "\303 \"\211\203\304\305\n#\210\202\304\306\"\210\n)\207" [file explicit-name path searchlib message "Library %s is in %s." "Library %s is not found."] 5 (#$ . 4036) "sSearch for library: \nP"]) #@296 Find where the Emacs Lisp library FILE is in the current '`load-path'. Tries appending ".el" and ".elc" unless the file already ends in one of these suffixes. If a prefix arg is given or the filename ends in ".elc" then the filename is searched for without changes. Then find-file the library. (defalias 'findlib #[(file &optional explicit-name) "\303 \"\211\205\f\304\n!)\207" [file explicit-name path wherelib find-file] 4 (#$ . 4566) "sSearch for Library: \nP"]) #@2  (defalias 'narrow-to-c-function #[nil "\212\300 \210`\301 })\207" [c-mark-function mark] 2 (#$ . 5041) nil]) #@2  (defalias 'wc-buffer #[nil "\212\300ed\301\302$)\207" [shell-command-on-region "wc" nil] 5 (#$ . 5156) nil])