;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:32 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/xhg-gnus.el ;;; in Emacs version 23.0.50.2 ;;; 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 "`xhg-gnus.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'tla-core) #@138 Integrate Xhg into Gnus. The following keybindings are installed for gnus-summary: K t s `xhg-gnus-article-view-status-for-import-patch' (defalias 'xhg-insinuate-gnus #[nil "\301 \210\302\303\304#\207" [gnus-summary-dvc-submap dvc-gnus-initialize-keymap define-key [115] xhg-gnus-article-view-status-for-import-patch] 4 (#$ . 615) nil]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\304\207" [current-load-list xhg-apply-patch-mapping default-boundp set-default nil xhg-gnus-patch-from-user xhg-gnus-import-patch-force] 3) #@131 Import MIME part N, as hg patch. When N is negative, force applying the patch, even if there are outstanding uncommitted changes. (defalias 'xhg-gnus-article-import-patch #[(n) "\247\203\302W\203\303[\202\304\305\306\"\207" [n xhg-gnus-import-patch-force 0 t nil gnus-article-part-wrapper xhg-gnus-import-patch] 3 (#$ . 1233) "p"]) #@71 Import a hg patch via gnus. HANDLE should be the handle of the part. (defalias 'xhg-gnus-import-patch #[(handle) "\306\307!\310P\311 \312\313 \210\212eb\210\314\315\312\316#\203\317\320!)\212eb\210\321\322!\210\323\324`\325\"\n\"\210\f\312\211&\203V&@\326 @!\203M\327 \211'A@)!&A\211&\2048+\330 \210\331 \210\332\n!\210\333\334\312\211\316%\211\203w(\335\n)\"\210)\336\n!\210\337p!\210\340 !\210\205\230\341\342!\205\230(\343\344\345\"\210\330 )+\207" [import-dir window-conf patch-file-name xhg-gnus-patch-from-user xhg-apply-patch-mapping m dvc-make-temp-name "gnus-xhg-import-" ".patch" current-window-configuration nil gnus-summary-select-article-buffer re-search-forward "^user: +\\(.+\\)$" t match-string-no-properties 1 search-forward "text/x-patch; " mm-save-part-to-file get-text-property gnus-data looking-at dvc-uniquify-file-name delete-other-windows dvc-buffer-push-previous-window-config find-file dvc-read-directory-name "Import hg patch to: " xhg-import delete-file kill-buffer set-window-configuration y-or-n-p "Run hg log in patched directory? " xhg-log "tip" "-10" #1=#:--cl-dolist-temp-- x default-directory xhg-gnus-import-patch-force] 7 (#$ . 1584)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list xhg-gnus-status-window-configuration default-boundp set-default nil] 3) #@203 View the status for the repository, where MIME part N would be applied as hg patch. Use the same logic as in `xhg-gnus-article-import-patch' to guess the repository path via `xhg-apply-patch-mapping'. (defalias 'xhg-gnus-article-view-status-for-import-patch #[(n) "\302\303\"\210\304 !\207" [n xhg-gnus-status-window-configuration gnus-article-part-wrapper xhg-gnus-view-status-for-import-patch set-window-configuration] 3 (#$ . 2946) "p"]) #@112 View the status for a repository before applying a hg patch via gnus. HANDLE should be the handle of the part. (defalias 'xhg-gnus-view-status-for-import-patch #[(handle) "\306 \307\310 \210\212eb\210\311\312!\210\n\307\211\2032\f@\313 @!\203+\314 \211A@)!\fA\211\204+\204?\315\316\307\211\317%\320 \210\321 \210\306 \322 !+\207" [import-dir window-conf xhg-apply-patch-mapping m #1=#:--cl-dolist-temp-- x current-window-configuration nil gnus-summary-select-article-buffer search-forward "text/x-patch; " looking-at dvc-uniquify-file-name dvc-read-directory-name "View hg repository status for: " t xhg-dvc-status delete-other-windows dvc-buffer-push-previous-window-config default-directory xhg-gnus-status-window-configuration] 6 (#$ . 3396)]) (provide 'xhg-gnus)