;ELC ;;; Compiled by daveg@contents-vnder-pressvre.mit.edu on Tue Aug 5 16:06:51 2008 ;;; from file /afs/athena/user/d/a/daveg/Elisp/random-other.el ;;; in Emacs version 21.4.1 ;;; with bytecomp version 2.85.4.1 ;;; 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 "`random-other.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'my-gnus-move #[nil "\301\301\302W\205!\303\304\305\306\307\310\311\312 !!\"P\"\210\313 \210T\211\202)\207" [x 0 10 gnus-summary-move-article nil "nnml:personal-" format-time-string "%Y-%m" safe-date-to-time mail-header-date gnus-summary-article-header gnus-summary-next-article] 9 nil nil]) #@26 DaveG's programming mode (defconst daveg-c-style '((c-tab-always-indent . t) (c-comment-only-line-offset . 4) (c-hanging-braces-alist (defun-open after) (defun-close after) (class-open after) (class-close after) (inline-open after) (inline-close after) (block-open after) (substatement-open after) (statement-case-open after) (extern-lang-open after) (extern-lang-close after) (brace-list-open after) (brace-list-close after) (brace-list-intro after) (brace-list-entry after)) (c-hanging-colons-alist (member-init-intro before) (inher-intro) (case-label after) (label after) (access-label after)) (c-cleanup-list scope-operator empty-defun-braces defun-close-semi) (c-basic-offset . 4)) (#$ . 949)) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\310\303B\306\303!\204(\311\312\313!P\304B\306\304!\2044\314\315\314\207" [current-load-list zsend-last-long-zgram zsend-logging zsend-log-file zsend-logged-something vc-make-backup-files boundp "" t "~/Zephyr/zsendlog." getenv "USER" nil true] 3) (defalias 'date #[nil "\300\301\302\303#\207" [call-process "date" nil t] 4 nil nil]) (defalias 'athena-path #[nil "\302 \302 \303\304  %c*\207" [ch2 ch read-char format "/afs/athena.mit.edu/user/%c/%c/%c%c"] 6 nil nil]) (defalias 'smiley #[nil "\300c\207" [":-)"] 1 nil nil]) (defalias 'daveg-work-email #[nil "\300c\207" ["dgolombek@blackducksoftware.com"] 1 nil nil]) (defalias 'zwgc-nuke-instance #[(instance) "\301\302\303!P!\207" [instance zwgc-nuke-msgs "\\` *" regexp-quote] 4 nil "sInstance to nuke: "]) (defalias 'zwgc-nuke-msgs #[(regexp) "\301\302\"\207" [regexp zwgc-notice-iter zwgc-nuke-iter] 3 nil "sRegexp to nuke: "]) (defalias 'zwgc-nuke-iter #[(regexp) "\301\302\303#\205\n\304 \207" [regexp re-search-forward nil t zwgc-punt] 4]) (defalias 'zwgc-handle-ping #[(data) "\300\301\302\224\302\225{\"\210\303\304!\207" [message "%s" 0 zwgc-punt t] 4]) (defalias 'zwgc-handle-noc #[(data) "\300\301\302\224\302\225{\"\210\303\304!\207" [message "%s" 0 zwgc-punt t] 4]) #@100 Reset zwgc hooks for znol-only operation. Note that this destroys the value of zwgc-running-hook. (defalias 'znol #[nil "\302\303\304\305 )\207" [zwgc-mode-hook zwgc-running-hook nil #[nil "\302\303\211\207" [zwgc-notice-regexp-alist zwgc-environment nil ("EMACS=t" "WGFILE=/tmp/wg.ddg.emacs" "TERM=emacs" "DISPLAY=emacs-znol")] 2] #[nil "\301 \210\302B\211\207" [zwgc-notice-regexp-alist zwgc-znol ("." . zwgc-punt)] 2] zwgc] 1 (#$ . 2967) nil]) (defalias 'zsend-insert-last-long-zgram #[nil "c\207" [zsend-last-long-zgram] 1 nil nil]) (defalias 'zsend-save-last-long-zgram #[nil "ed{\211\207" [zsend-last-long-zgram] 2]) (defalias 'zsend-log-zgram #[nil "\205i\306\307!ed{\310 ! @\311=\204\312\302!\204\313\202\nP\212 q\210\fc\210db\210h\314=\2046\315c\210eb\210\316\317\320`d\"\321\322! \323 %c\210db\210\315c\210\324ed\325\326%\210\204e\327\330\"\210\325\331 !,\207" [zsend-logging zsend-dest zsend-append-realm dest msg savebuf generate-new-buffer " *zsend-log*" zsend-tuplestr user boundp "" 10 "\n" format "[zsend (%d) %s-><<%s>> %s]\n" count-lines getenv "USER" current-time-string write-region t nomessage set-file-modes 384 kill-buffer zsend-log-file zsend-logged-something] 6]) (defalias 'reply-get-dest #[nil "\302X\203\n\303\304!\210\305 \210eb\210\306\210e`{\307 \310\306O\311\"\203& \302\310O\312 \210 \207" [zwgc-notices reply-dest 0 error "No message to reply to" zwgc-push-to-buffer nil string-match -1 "*" zwgc-pop-from-buffer] 4]) #@20 A neat little hack (defalias 'my-zreply #[(destination &optional message) "\304\305!\204\n\306\307!\210\204\305 !\310 \311\312\313 !\314Q!\315 !\210\316 \n\"\210\317\232?\2053c\210\320 *\207" [message destination cwc tempbuf fboundp zsend-get-msg error "Load zsend before trying to zreply" current-window-configuration generate-new-buffer " *zsend " zsend-deststr "*" switch-to-buffer-other-window zsend-mode "" zsend-send-zgram] 4 (#$ . 4461) (let* ((dest (cons 'tuple (reply-get-dest))) (msg (zsend-get-msg dest))) (list dest msg))]) #@67 Enters scheme-interaction-mode if it exists, lisp-mode otherwise. (defalias 'scheme-or-lisp-mode #[nil "\301>\203\302\303!\203\303 \207\304 \207\305 \207" [features scheme fboundp scheme-interaction-mode scheme-mode lisp-mode] 2 (#$ . 5013)]) #@131 Writes the current buffer to the file buffer-file-name, setting all the execute bits for which the corresponding read bit is set. (defalias 'write-executable-file #[nil "\303!?\205%\304\211\305\306!\210\307!\210\310!\311\312 \313\314 \315\"\316\"\"\"*\207" [buffer-file-name mode auto-write-alist file-exists-p nil message "Writing executable file, setting mode." write-file file-modes set-file-modes logior lsh logand 292 -2] 8 (#$ . 5268)]) #@158 A write-file hook that sets mail-aliases to t when a file named '.mailrc' is written. This causes the mail aliases file to be reread before the next send. (defalias 'alias-check #[nil "\302!\303\232\203\n\304\305\207" [buffer-file-name mail-aliases file-name-nondirectory ".mailrc" t nil] 2 (#$ . 5726)]) #@142 Insert contents of file FILENAME into buffer after point. Run input through zcat if FILENAME ends in .Z. Set mark after the inserted text. (defalias 'insert-file #[(filename) "\303!\2030\304\305\"\2030`\306\307!\210\310`` A@\\\311\312\211%\210\313`S!\210\nb\210\306\314!)\2027\313` A@\\!)\207" [filename endinsrt begofinsrt insert-file-contents string-match "^\\(.*\\)\\.g?[zZ]$" message "Uncompressing inserted text..." call-process-region "zcat" t push-mark "done."] 6 (#$ . 6043) "fInsert file: "]) #@56 Gets rid of hilit19 hilighting for the current buffer. (defalias 'unhilit #[nil "\300ed\"\207" [hilit-unhighlight-region] 3 (#$ . 6561) nil]) #@97 Takes a list of SYMBOLS and setq's them to nil. Interactively, it prompts for a variable name. (defalias 'make-nil #[(&rest args) "\301\302\"\207" [args mapcar #[(arg) "\301\302\303E!\207" [arg eval setq nil] 4]] 3 (#$ . 6709) (list (read-variable "Nil variable: "))]) #@95 Takes a list of SYMBOLS and setq's them to t. Interactively, it prompts for a variable name. (defalias 'make-t #[(&rest args) "\301\302\"\207" [args mapcar #[(arg) "\301\302\303E!\207" [arg eval setq t] 4]] 3 (#$ . 6987) (list (read-variable "T variable: "))]) #@221 Inserts STRING at the beginning of every line in the region. Called interactively, STRING defaults to comment-start (or '>> ' if none is defined) unless a prefix argument is given, in which case it prompts for a string. (defalias 'highlight-region #[(string) "\212n\203\301y\210\214`\302 }\210eb\210\303\304\305\306#\205 \307!\210\202*\207" [string -1 mark re-search-forward "^" nil t replace-match] 4 (#$ . 7258) (list (if current-prefix-arg (read-string "String to insert: ") (or comment-start ">> ")))]) #@223 Deletes STRING from the beginning of every line in the region. Called interactively, STRING defaults to comment-start (or '>> ' if none is defined) unless a prefix argument is given, in which case it prompts for a string. (defalias 'unhighlight-region #[(string) "\212n\203\301y\210\214`\302 }\210eb\210\303\304P\305\306#\205\"\307\310!\210\202*\207" [string -1 mark re-search-forward "^" nil t replace-match ""] 4 (#$ . 7778) (list (if current-prefix-arg (read-string "String to delete: ") (or comment-start ">> ")))]) (defalias 'incr-region-regexp #[(beg end cnt &optional regexp) "\304 \n $\207" [beg end cnt regexp incr-region] 5 nil "r\np\nsRegexp to increment: "]) #@286 Increments all integers in a region. Called interactively, increments numbers by the prefix argument (which can be negative). From a program, expects BEGIN END COUNT. If an optional arg REGEXP is provided, the integers to increment are taken from the first parenthesized expression. (defalias 'incr-region #[(beg end cnt &optional regexp) "\204\304\212\214 \n}\210eb\210\305\306\307#\2053\310\311\224\312\224{\313 \314\312\224\312\225{!\\!\312\225\311\225{Q!\210\202*\207" [regexp beg end cnt "\\([0-9]+\\)" re-search-forward nil t replace-match 0 1 int-to-string string-to-int] 7 (#$ . 8463) "r\np"]) #@143 Counts the words in the current buffer, displaying the current count, along with a timestamp and the buffer name, in the *Word Count* buffer. (defalias 'count-words-in-buffer #[nil "\300ed\"\207" [count-words-in-region] 3 (#$ . 9082) nil]) #@229 Counts the words in the current region, displaying the current count, along with a timestamp and the buffer name, in the *Word Count* buffer. If called from a program, expects MIN and MAX args as start and end buffer addresses. (defalias 'count-words-in-region #[(min max) "p\304\305!\211q\210\306\n \307\310\310&\210 q\210\311\312 \"\210\311\313\"\210\311\314 \"\210\315!\210\316!\210eb\210\316 !*\207" [buffer real-buffer min max get-buffer-create "*Word Count*" call-process-region "/usr/bin/wc" nil princ buffer-name " (region) as of " current-time-string terpri pop-to-buffer] 8 (#$ . 9329) "r"]) (defalias 'center-rectangle #[(beg end) "\305\306\212\214\n }\210eb\210m\204$`\212\306\210`\nZ ])\307y\210\202 eb\210\f Z\310\245m?\205=\311\312\"\210\307y\210\202-,\207" [len maxlen beg end fill-column 0 nil 1 2 insert-char 32] 3 nil "r"]) (defalias 'c-comment-line #[nil "\212\300 \210\301c\210\302\210\303c)\207" [beginning-of-line "/*" nil "*/"] 1 nil nil]) (defalias 'c-comment-region #[nil "\212\302 `W\203 \303 \210\304 \304 \211\302 \305\223\210`\305\223\210\306 \305#\210b\210\307\310!\210\311\312!\210\313 \210\314c\210` W\203F\315\312!\210\313 \210\316c\210\2023\315\312!\210\317c\210*\307\310!)\207" [beginning end mark exchange-point-and-mark make-marker nil fill-region newline 2 previous-line 1 beginning-of-line "/*" next-line " * " " */"] 5 nil nil]) (defalias 'c-uncomment-region #[nil "\212\302 \302 \303\304!\210\305 \210\306\307!\210\310\311!\210\305 \210 `\312\223\210\313\314!\210\305 \210\306\307!\210`\312\223\210 b\210`W\205E\305 \210\306\307!\210\310\311!\210\2021+\207" [end beginning make-marker search-backward "\n/*" beginning-of-line delete-char 3 next-line 1 nil search-forward "\n */"] 3 nil nil]) #@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]\317\202^\316 \320R\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 "/\\'" "\n" "/" "" "c" test-file] 6 (#$ . 11105) "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 (#$ . 11859) "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 (#$ . 12390) "sSearch for Library: \nP"]) (byte-code "\300\301M\210\302\303M\207" [enlarge-window-twelve "12^" make compile] 2) (defalias 'choose-or-funcall #[(bufname func) "\302!\203\n\303!\207 \207" [bufname func get-buffer switch-to-buffer] 2]) #@61 Applies rot13 formatting to region, with UNIX 'tr' command. (defalias 'rot13-region #[(start end) "\302 \303\304\211\305\306\307&\207" [start end call-process-region "tr" t nil "a-zA-Z" "n-za-mN-ZA-M"] 9 (#$ . 13080) "r"]) (defalias 'flip-debug-on-error #[nil "?\211\203 \301\302!\207\301\303!\207" [debug-on-error message "Debugger enabled." "Debugger disabled."] 3 nil nil]) #@40 Recompile every .el file in DIRECTORY. (defalias 'force-byte-compile-directory #[(directory &optional arg) "\305 \210\306!\307\310\311#\312\310\211\211\203@\313\f@!\2049\306\f@\"\211\2039\314\n!\315P\211\2039\316\n!\210 T\fA\211\204\317\320 \211\321U\203M\322\202N\323#,\207" [directory dest source count files save-some-buffers expand-file-name directory-files nil "\\.el\\'" 0 auto-save-file-name-p file-name-sans-versions "c" byte-compile-file message "Done (Total of %d file%s compiled)" 1 "" "s"] 6 (#$ . 13468) "DByte compile whole directory: \nP"]) #@42 Clear the kill ring and garbage collect. (defalias 'clear-kill-ring #[nil "\301\302 \207" [kill-ring nil garbage-collect] 1 (#$ . 14050) nil]) #@42 Turn off auto-fill-mode. Kinda kludgey. (defalias 'turn-off-auto-fill #[nil "\300 \210\301\302!\207" [turn-on-auto-fill auto-fill-mode -1] 2 (#$ . 14200) nil]) #@26 Show current Disk Quotas (defalias 'dq #[nil "\300\301\302!!\210\303\304\302\305\306\307%\207" [pop-to-buffer get-buffer-create "*disk quota*" start-process "dq" "fs" "lq" "/afs/athena.mit.edu/user/d/a/daveg"] 6 (#$ . 14367) nil]) (fset 'my-kill-buffer-and-window "k") #@59 Custom function to save a bufer and then byte-compile it. (defalias 'save-and-byte-compile-buffer #[(&optional file) "\301!\210\302\303 !\207" [file save-buffer byte-compile-file buffer-file-name] 2 (#$ . 14643) "p"]) #@44 Solves problems for poor typists and ^X^C. (defalias 'query-quit-emacs #[nil "\300\301!\205\302 \207" [yes-or-no-p "Really quit? " save-buffers-kill-emacs] 2 (#$ . 14868) nil]) #@44 Solves problems for poor typists and ^X^Z. (defalias 'query-suspend-emacs #[nil "\300\301!\205\302 \207" [yes-or-no-p "Really suspend? " suspend-emacs] 2 (#$ . 15053) nil]) #@189 Prompts user for name to expand at mail hub. If provided with numerical arg, prompts for alternate mailhub to contact (defaults is mit.edu). Displays results an another buffer when done. (defalias 'expn #[(arg) "\303\304!\305\306\307\203\303\310!\202\311\312$\313 !q\210\314 \210\315 \316\"\210\317 \320\"\210\321 \322\n\323Q\"\210\321 \324\"*\207" [arg p who read-from-minibuffer "name to expand: " open-network-stream "expn" "*expn-output*" "mail hub to contact: " "pacific-access-annex.mit.edu" "smtp" process-buffer erase-buffer set-process-filter (lambda (proc s) (save-excursion (set-buffer (process-buffer proc)) (while (< 0 (length s)) (let ((l (string-match " " s))) (insert (substring s 0 l)) (setq s (cond (l (substring s (1+ l))) (t ""))))))) set-process-sentinel (lambda (proc s) (display-buffer (process-buffer proc))) process-send-string "expn " " \n" "quit \n"] 6 (#$ . 15235) "P"]) (defalias 'move-line-to-top #[nil "\300\301!\207" [recenter 0] 2 nil nil]) (defalias 'flip-truncate #[nil "?\301\302!\210\303\302!\207" [truncate-lines shrink-window 1 enlarge-window] 2 nil nil]) #@35 MV for Emacs. Written by kkkken. (defalias 'mv #[(fname) "\302p!\303 !\210\203 \304!\203 \305 !\305!\230\204 \306!\210\304 !?\205*\303 !)\207" [oldfname fname buffer-file-name write-file file-exists-p expand-file-name delete-file] 3 (#$ . 16346) "FNew filename: "]) #@68 Create symbolic links in Emacs. A placebo for make-symbolic-link. (defalias 'ln-s #[nil "\300\301!\207" [call-interactively make-symbolic-link] 2 (#$ . 16628) nil]) #@61 MKDIR for Emacs. Written by blade, because I'm a bonehead. (defalias 'mkdir #[(dirname) "\302!\303!\210\304\305 \306 !\203\307\202\310#)\207" [dirname dname expand-file-name make-directory message "`make-directory %s' %s." file-directory-p "successful" "failed"] 5 (#$ . 16800) "FEnter directory name: "]) #@303 Switch the focus to the next logical frame (and raise that frame to the front). Keyboard input will go to the newly selected frame. Prefix arg means go to previous frame, not next frame. The mouse cursor will not follow you, which is kind of a weird feeling, but you'll get used to it. (defalias 'focus-next-or-previous-frame #[(parg) "\304  \203\f\305 \202\306 \307\n!\211\205/\310\n!\210 \311=\203$\312 \210\313\n\314\n!S\315#\210\316 +\207" [nowframe parg nextframe visip selected-frame previous-frame next-frame frame-visible-p select-frame icon iconify-or-deiconify-frame set-mouse-position frame-width 0 unfocus-frame] 5 (#$ . 17121) "P"]) #@159 Toggle whether or not the selected frame has menu bars. With arg, turn menu bars on if and only if arg is positive. Author: Tasuki Hirata (sukes@eng.umd.edu) (defalias 'toggle-menu-bar/tools #[(arg) "\204\301\302\303\304 !\236A!\204\305\202\306\307\304 \310V\203#\311\202$\312C\"\210\313 \207" [arg zerop menu-bar-lines frame-parameters selected-frame -1 1 modify-frame-parameters 0 (menu-bar-lines . 1) (menu-bar-lines . 0) recenter] 4 (#$ . 17798) "P"]) #@34 Byte-compile the current buffer. (defalias 'byte-compile-buffer #[nil "\301\302!\210\303!\207" [buffer-file-name call-interactively save-some-buffers byte-compile-file] 2 (#$ . 18271) nil]) #@150 Pseudo-screensaver program for emacs. Opens window of scrolling stars until a key is pressed, after which the buffer is destroyed. Fun fun fun! (defalias 'glitter #[nil "\302\303!\210\304 \204e\305\306W\203X\304 \204X\307c\210\310\311 \312 \"\211\305W\203) [\313\314 S\"\210\315c\210\316\317 `\"i\305U\203A\320\202B\305\\\321 SU\203N\322\320!\210T\323\305!\210\202 \304 \204\324ed\"\210\202\325\303!\207" [count pos switch-to-buffer "*glitter*" input-pending-p 0 1000 "\n" mod random window-width insert-char 32 "*" count-lines window-start 1 window-height scroll-up sit-for kill-region kill-buffer] 4 (#$ . 18469) nil]) #@53 Set the "\C-h" key so that it acts as a Delete key. (defalias 'ctl-h-is-del #[nil "\302\303\304#\210 \204 \305 \302 \303\306#\207" [global-map key-translation-map define-key "" nil make-sparse-keymap [127]] 4 (#$ . 19119) nil]) #@51 Set the "\C-h" key so that it acts as a Help key. (defalias 'ctl-h-is-help #[nil "\303\304\305#\210 \204 \306 \303 \304\307#\210\310\n\235\206\310\nB\211\207" [global-map key-translation-map help-event-list define-key "" help-command make-sparse-keymap nil 8] 4 (#$ . 19357) nil]) #@19 Swap C-h and DEL. (defalias 'fix-bs #[nil "\300\301\302\"\210\300\302\301\"\207" [keyboard-translate 8 127] 3 (#$ . 19651) nil]) #@21 Unswap C-h and DEL. (defalias 'unfix-bs #[nil "\300\301\211\"\210\300\302\211\"\207" [keyboard-translate 8 127] 3 (#$ . 19786) nil]) #@51 Strip C-m characters from (point) to (point-max). (defalias 'strip-control-m #[nil "\300\301\302\"\207" [replace-string " " ""] 3 (#$ . 19925) nil]) (byte-code "\300\301KM\207" [builtin-expand-file-name expand-file-name] 2) (defalias 'expand-file-name #[(name &optional default-dir) "\302\303\"\203\304\305\306\211\307%\202\302\310\"\203$\304\305\306\211\307%\202\311 \"\207" [name default-dir string-match "/\\(\\.\\.\\.\\)\\.*/" replace-match "../.." nil 1 "/\\(\\.\\.\\.\\)\\.*$" builtin-expand-file-name] 6]) #@43 Handle my .. alias to cd .. in shell mode (defalias 'my-cd-handler #[(text) "\301\230\205 \302\303!\207" [text "..\n" shell-process-cd ".."] 2 (#$ . 20458)]) (byte-code "\300\301\302\303\304$\210\300\305\306\303\304$\207" [add-hook comint-input-filter-functions my-cd-handler nil t comint-output-filter-functions comint-watch-for-password-prompt] 5) #@36 Create BBDB entry for a given user (defalias 'my-add-to-bbdb #[(name username) "\302\303\304 #\305\306#\207" [name username bbdb-annotate-message-sender format "%s <%s>" nil t] 5 (#$ . 20816) nil]) #@23 Change buffer to gnus (defalias 'switch-to-gnus #[nil "\300\301!\207" [switch-to-buffer "*Group*"] 2 (#$ . 21021) nil]) #@23 Change buffer to gnus (defalias 'switch-to-shell #[nil "\300\301!\207" [switch-to-buffer "*shell*"] 2 (#$ . 21147) nil]) #@42 reload the current buffer from it's file (defalias 'reload-file #[nil "\300\301 !\207" [find-alternate-file buffer-file-name] 2 (#$ . 21274) nil])