;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:33 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/xhg.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.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require dvc-core dvc-diff xhg-core xhg-log] 2) #@22 Run hg export --git. (defvar xhg-export-git-style-patches t (#$ . 698)) #@14 Run hg init. (defalias 'xhg-init #[(&optional dir) "\301\302\303D\304\305\306\307\310\311\312\313\314\315\316D\257E$\207" [dir dvc-run-dvc-sync xhg "init" :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "hg init finished"] 2] output error status arguments quote nil] 14 (#$ . 776) (list (expand-file-name (dvc-read-directory-name "Directory for hg init: " (or default-directory (getenv "HOME")))))]) #@13 Run hg add. (defalias 'xhg-dvc-add-files #[(&rest files) "\302\303\"\210\304 \305\306\307\310\311\312\"\"\313\314\315\316\317\320\321\322\323\324\325D\257E$)\207" [files default-directory dvc-trace "xhg-add-files: %s" xhg-tree-root dvc-run-dvc-sync xhg append ("add") mapcar file-relative-name :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "hg add finished"] 2] output error status arguments quote nil] 14 (#$ . 1250)]) #@16 Run hg revert. (defalias 'xhg-dvc-revert-files #[(&rest files) "\302\303\"\210\304 \305\306\307\310\311\312\"\"\313\314\315\316\317\320\321\322\323\324\325D\257E$)\207" [files default-directory dvc-trace "xhg-revert-files: %s" xhg-tree-root dvc-run-dvc-sync xhg append ("revert") mapcar file-relative-name :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "hg revert finished"] 2] output error status arguments quote nil] 14 (#$ . 1748)]) #@16 Run hg remove. (defalias 'xhg-dvc-remove-files #[(&rest files) "\302\303\"\210\304 \305\306\307\310\311\312\"\"\313\314\315\316\317\320\321\322\323\324\325D\257E$)\207" [files default-directory dvc-trace "xhg-remove-files: %s" xhg-tree-root dvc-run-dvc-sync xhg append ("remove") mapcar file-relative-name :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "hg remove finished"] 2] output error status arguments quote nil] 14 (#$ . 2261)]) #@19 Run hg addremove. (defalias 'xhg-addremove #[nil "\300\301\302\303\304\305\306\307\310\311\312\313\314\315D\257E$\207" [dvc-run-dvc-sync xhg ("addremove") :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "hg addremove finished"] 2] output error status arguments quote nil] 14 (#$ . 2774) nil]) #@16 Run hg rename. (defalias 'xhg-dvc-rename #[(from to &optional after force) "\304\305\306\307!\307 !\n\205\310 \205\311\257\312\313\314\315\316\317\320\321\322\323\324D\257E$\207" [from to after force dvc-run-dvc-sync xhg "rename" dvc-uniquify-file-name "--after" "--force" :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "hg rename finished"] 2] output error status arguments quote nil] 14 (#$ . 3140) (let* ((from-name (dvc-confirm-read-file-name "xhg rename: ")) (to-name (dvc-confirm-read-file-name (concat "xhg rename '" from-name "' to: ") nil "" from-name))) (list from-name to-name nil nil))]) #@16 Run hg forget. (defalias 'xhg-forget #[(&rest files) "\303\304!\303\305!\306 \n\307$\205'\310\311\312\313\n\"\314\315\316\317\320\321\322\323\324\325\326D\257E$*\207" [singleprompt multiprompt files format "Forget %%d files for hg? " "Forget file for hg: " dvc-confirm-read-file-name-list t dvc-run-dvc-sync xhg append ("forget") :finished lambda (output error status arguments) apply #[(output error status arguments) "\300\301!\207" [message "hg forget finished"] 2] output error status arguments quote nil] 14 (#$ . 3820) (dvc-current-file-list)]) #@186 Run 'hg add' to add all files to mercurial. Normally run 'hg add -n' to simulate the operation to see which files will be added. Only when called with a prefix argument, add the files. (defalias 'xhg-add-all-files #[(arg) "\301\302\303?\205 \304D\"\207" [arg dvc-run-dvc-sync xhg "add" "-n"] 4 (#$ . 4383) "P"]) #@309 Run hg log. When run interactively, the prefix argument decides, which parameters are queried from the user. C-u : Show patches also, use all revisions C-u C-u : Show patches also, ask for revisions positive : Don't show patches, ask for revisions. negative : Don't show patches, limit to n revisions. (defalias 'xhg-log #[(&optional r1 r2 show-patch file) "t\203.\306\232\203\307\310\202\311\232\203\307\312\n\247\203.\n\313V\203.\314\315!\314\316!\317\320\321\"\322\f)*\n\203F\n\247\203F\323\n! \203S \247\203S\323 ! G\313V\203p\nG\313V\203p\324)\325 \326\nQD\")\202\235\nG\313V\203\235\327\n!\211+\313V\203\216\324)\325\nD\")\202\234\324)\330\323\331+!!D\")) \203\251\324)\332C\")\333*!\210\307,\334 \210)\335 \210 \336\320)\337\340\341\342\343\344\345\346\347\350*CD\257E$,\207" [current-prefix-arg show-patch r1 r2 default-directory cur-dir (4) t nil (16) 1 0 read-string "hg log, R1:" "hg log, R2:" dvc-get-buffer-create xhg log ("log") number-to-string append "-r" ":" string-to-number "-l" abs "-p" dvc-switch-to-buffer-maybe erase-buffer xhg-log-mode dvc-run-dvc-sync :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-165) "rq\210\304\305 \210\306\n!\210eb\210\307\310 \"c\210\311\312!*\207" [#1# inhibit-read-only output default-directory t erase-buffer insert-buffer-substring format "hg log for %s\n\n" toggle-read-only 1] 3] output error status arguments quote command-list buffer r1-num inhibit-read-only] 15 (#$ . 4704) "P"]) (defalias 'xhg-parse-diff #[(changes-buffer) "\212\305\306\307\310#\205N\311\312!\312y\210\313\314!\312y\210\313\315!r q\210\316\f\317\320\321 \203-\322\2026\n\2035\323\2026\324 \204>\n\203B\324\202C\325\324\307\257\"\"\210,\202)\207" [name added removed changes-buffer dvc-fileinfo-ewoc re-search-forward "^diff -r [^ ]+ \\(.*\\)$" nil t match-string-no-properties 1 looking-at "^--- /dev/null" "^\\+\\+\\+ /dev/null" ewoc-enter-last make-dvc-fileinfo-legacy :data file "A" "D" " " "M"] 10]) (defalias 'xhg-parse-status #[(changes-buffer) "\306\307p!\310\"\311\312\211\313 \210\314\315\f\"\312\211\203O@\211\316\230\204F\317\320Orq\210\321\322\323\324\325\312O E\"\"\210)A\211\204.\312\207" [status-list modif-char modif inhibit-read-only default-directory dvc-header split-string dvc-buffer-content "\n" t nil erase-buffer format "hg status for %s\n" "" 0 1 ewoc-enter-last vector cl-struct-dvc-fileinfo-legacy file 2 elem #1=#:--cl-dolist-temp-- changes-buffer dvc-fileinfo-ewoc] 9]) #@62 Run hg diff. If DONT-SWITCH, don't switch to the diff buffer (defalias 'xhg-diff-1 #[(modified path dont-switch base-rev) "\306  \206\np\307 !\310\311\312 \313BBD\311\314 DD\315 \311% \316!\317 !\210\320!\210\"\2037\321\f!\210\322 !\210#\203Y\323!\324#D\"!$\203Y\323!\324$D\"!\325\311!\326\327\330\331\332\333\334\335\336\337 CD\257E$.\207" [window-conf path default-directory cur-dir orig-buffer root current-window-configuration xhg-tree-root dvc-prepare-changes-buffer xhg last-revision (1) local-tree diff ("diff") dvc-switch-to-buffer-maybe dvc-buffer-push-previous-window-config pop-to-buffer dvc-save-some-buffers append "-r" dvc-run-dvc-sync :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-166) "\302\303 #\207" [output #1# dvc-show-changes-buffer xhg-parse-diff] 4] output error status arguments quote buffer command-list dont-switch base-rev modified] 14 (#$ . 7301) (list nil nil current-prefix-arg)]) #@62 Run hg diff. If DONT-SWITCH, don't switch to the diff buffer (defalias 'xhg-dvc-diff #[(&optional base-rev path dont-switch) "\303\304 \305\n\304\306#$\207" [path dont-switch base-rev xhg-diff-1 nil dvc-revision-to-string "tip"] 8 (#$ . 8308) (list nil nil current-prefix-arg)]) (defalias 'xhg-delta #[(base-rev modified &optional path dont-switch) "\304\305! \n\305 !$\207" [modified path dont-switch base-rev xhg-diff-1 dvc-revision-to-string] 6 nil (list nil nil nil current-prefix-arg)]) #@16 Run hg status. (defalias 'xhg-dvc-status #[nil "\303 \304 \305\306\307 \310BBD\306\311 DD\312 \306%\313\n!\210\314!\210\315 !\210\316\306\317\320\321\322\323\324\325\326\312\327\330 \nDD\257E$+\207" [window-conf root buffer current-window-configuration xhg-tree-root dvc-prepare-changes-buffer xhg last-revision (1) local-tree status dvc-switch-to-buffer-maybe dvc-buffer-push-previous-window-config dvc-save-some-buffers dvc-run-dvc-sync ("status") :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-168 #2=#:dvc-gensym-uniq-167) "rq\210\303 \210deV\203\304 \305#\202\306\307\n#)\207" [#2# output #1# xhg-status-extra-mode-setup dvc-show-changes-buffer xhg-parse-status dvc-diff-no-changes "No changes in %s"] 4] output error arguments quote] 15 (#$ . 8808)]) #@12 `xhg' menu (defvar xhg-mode-menu nil (#$ . 9645)) (byte-code "\302\303\304\305\306\307\310\301!\205 D\"$\207" [dvc-diff-mode-map xhg-mq-submenu easy-menu-do-define xhg-mode-menu "`xhg' menu" delete nil "hg" boundp] 9) #@49 Do some additonal setup for xhg status buffers. (defalias 'xhg-status-extra-mode-setup #[nil "\303\304!\210\305!\210\306\301!\203\307\310 \"\210\311\211\207" [xhg-mode-menu xhg-mq-sub-mode-map dvc-buffer-refresh-function dvc-trace "xhg-status-extra-mode-setup called." easy-menu-add boundp local-set-key [81] xhg-dvc-status] 3 (#$ . 9872)]) (defalias 'xhg-pull-finish-function #[(output error status arguments) "\304\305\306\"rq\210\307\310 \210\311\n!\210\312\313!\210*\314\315!*\207" [buffer inhibit-read-only output dvc-switch-to-buffer-mode dvc-get-buffer-create xhg pull t erase-buffer insert-buffer-substring toggle-read-only 1 show-in-other-window dvc-switch-to-buffer] 3]) #@14 Run hg pull. (defalias 'xhg-pull #[(src &optional update-after-pull) "\302\303\304\205\305 E\306\307\310\307&\207" [update-after-pull src dvc-run-dvc-async xhg "pull" "--update" :error xhg-pull-finish-function :finished] 7 (#$ . 10568) (list (let* ((completions (xhg-paths 'both)) (initial-input (car (member "default" completions)))) (dvc-completing-read "Pull from hg repository: " completions nil nil initial-input)))]) #@15 Run hg clone. (defalias 'xhg-clone #[(src &optional dest noupdate rev pull) "\301\302\303D\"\207" [src dvc-run-dvc-async xhg "clone"] 4 (#$ . 11001) (list (read-string "hg clone from: ") nil nil nil nil)]) #@18 Run hg incoming. (defalias 'xhg-incoming #[(&optional src show-patch no-merges) "\305\306\307\"\310\311\"\210\311\312 \210)\313 \210\314\306\315\n \205\316\f\205!\317F\320\321\322\323\324\325\326\327\330\331CD\257E$)\207" [buffer inhibit-read-only src show-patch no-merges dvc-get-buffer-create xhg log dvc-switch-to-buffer-maybe t erase-buffer xhg-log-mode dvc-run-dvc-async "incoming" "--patch" "--no-merges" :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-169) "rq\210\304\305 \210\306\n!\210eb\210\307\310 \"c\210\311\312!*\207" [#1# inhibit-read-only output default-directory t erase-buffer insert-buffer-substring format "hg incoming for %s\n\n" toggle-read-only 1] 3] output error status arguments quote] 14 (#$ . 11214) (list (let* ((completions (xhg-paths 'both)) (initial-input (car (member "default" completions)))) (dvc-completing-read "Show incoming from hg repository: " completions nil nil initial-input)) nil nil)]) #@15 Run hg merge. (defalias 'xhg-merge #[(&optional revision) "\301\230\203\302\303\304\305D\306\307\310\311\312\313\314\315\316\317\302D\257E$\207" [revision "" nil dvc-run-dvc-async xhg "merge" :finished lambda (output error status arguments) apply #[(output error status arguments) "\302\303\304!\304 !P\"\207" [error output message "hg merge finished => %s" dvc-buffer-content] 5] output error status arguments quote] 14 (#$ . 12223) "sMerge from hg revision: "]) #@17 Run hg version. (defalias 'xhg-command-version #[nil "\301\302\303\304\305$t\203\306\307\"\210)\207" [version dvc-run-dvc-sync xhg ("version") :finished dvc-output-buffer-handler message "Mercurial version: %s"] 5 (#$ . 12700) nil]) #@18 Run hg manifest. (defalias 'xhg-manifest #[nil "\301\302\303\"\304\302\305\306\307\310\311\312\313\314\315\316\317CD\257E$)\207" [buffer dvc-get-buffer-create xhg manifest dvc-run-dvc-sync ("manifest") :finished lambda (output error status arguments) apply #[(output error status arguments #1=#:dvc-gensym-uniq-170) "rq\210\303\304 \210\305\n!\210\306\307!\210*\310!\207" [#1# inhibit-read-only output t erase-buffer insert-buffer-substring toggle-read-only 1 dvc-switch-to-buffer] 2] output error status arguments quote] 14 (#$ . 12944) nil]) #@13 Run hg tip. (defalias 'xhg-tip #[nil "\300\301\302\"\207" [dvc-run-dvc-display-as-info xhg ("tip")] 3 (#$ . 13500) nil]) #@15 Run hg heads. (defalias 'xhg-heads #[nil "\300\301\302\"\207" [dvc-run-dvc-display-as-info xhg ("heads")] 3 (#$ . 13627) nil]) #@17 Run hg parents. (defalias 'xhg-parents #[nil "\300\301\302\"\207" [dvc-run-dvc-display-as-info xhg ("parents")] 3 (#$ . 13760) nil]) #@18 Run hg identify. (defalias 'xhg-identify #[nil "\302\303\304\305\306\307\310\311&\210t\203\312\313 #\210)\207" [id default-directory nil dvc-run-dvc-sync xhg ("identify") :finished #[(output error status arguments) "q\210eb\210\302`\303 \"\211\207" [output id buffer-substring-no-properties line-end-position] 3] :error #[(output error status arguments) "\301\211\207" [id ""] 2] message "hg identity for %s: %s"] 7 (#$ . 13899) nil]) #@16 Run hg verify. (defalias 'xhg-verify #[nil "\300\301\302\"\207" [dvc-run-dvc-display-as-info xhg ("verify")] 3 (#$ . 14358) nil]) #@20 Run hg showconfig. (defalias 'xhg-showconfig #[nil "\300\301\302\"\207" [dvc-run-dvc-display-as-info xhg ("showconfig")] 3 (#$ . 14494) nil]) #@321 Run hg paths. When called interactive, display them in an *xhg-info* buffer. Otherwise the return value depends on TYPE: 'alias: Return only alias names 'path: Return only the paths 'both Return the aliases and the paths in a flat list otherwise: Return a list of two element sublists containing alias, path (defalias 'xhg-paths #[(&optional type) "t\203 \304\305\306\"\207\307\305\310C\311\312$\313\314\"\315 \316=\203'\313\317 \"\211\202N \320=\2036\313\321 \"\211\202N \322=\203K\323\313\317 \"\313\321 \"\"\211\202N \211+\207" [path-list lisp-path-list result-list type dvc-run-dvc-display-as-info xhg ("paths") dvc-run-dvc-sync "paths" :finished dvc-output-buffer-split-handler mapcar #[(arg) "\301\302#\207" [arg dvc-split-string " = "] 4] nil alias car path cadr both append] 5 (#$ . 14643) nil]) #@14 Run hg tags. (defalias 'xhg-tags #[nil "\300\301\302\"\207" [dvc-run-dvc-display-as-info xhg ("tags")] 3 (#$ . 15482) nil]) #@18 Run hg annotate. (defalias 'xhg-annotate #[nil "\300\301\302\303\304 \"\"\207" [dvc-run-dvc-display-as-info xhg append ("annotate") dvc-current-file-list] 5 (#$ . 15612) nil]) #@14 Run hg view. (defalias 'xhg-view #[nil "\300\301\302\"\207" [dvc-run-dvc-async xhg ("view")] 3 (#$ . 15794) nil]) #@93 Run hg export. `xhg-export-git-style-patches' determines, if git style patches are created. (defalias 'xhg-export #[(rev fname) "\303\304\305\205\306\307\310 !\n\257\311\312$\207" [xhg-export-git-style-patches fname rev dvc-run-dvc-sync xhg "export" "--git" "-o" expand-file-name :finished #[(output error status arguments) "\302\303 #\207" [rev fname message "Exported revision %s to %s."] 4]] 7 (#$ . 15914) (list (xhg-read-revision "Export revision: ") (read-file-name "Export hg revision to: "))]) #@16 Run hg import. (defalias 'xhg-import #[(patch-file-name &optional force) "\302\303\304\305\306\205\n\307\310 !E\"\311\312$\207" [force patch-file-name dvc-run-dvc-sync xhg delete nil "import" "--force" expand-file-name :finished #[(output error status arguments) "\301\302\"\207" [patch-file-name message "Imported hg patch from %s."] 3]] 8 (#$ . 16427) (list (read-file-name "Import hg patch: " nil nil t))]) #@14 Run hg undo. (defalias 'xhg-undo #[nil "\301\302 \303P!\211\203\304\213\202\305\306!)\207" [undo-possible file-exists-p xhg-tree-root ".hg/undo" ((byte-code "\300\301\302\303#\210\304\305!\203\306\307\310C\311\312$\207\313\314!\207" [xhg-log "-1" nil t yes-or-no-p "Undo this transaction? " dvc-run-dvc-sync xhg "undo" :finished #[(output error status arguments) "\300\301!\207" [message "Finished xhg undo."] 2] message "xhg undo aborted."] 5)) message "xhg: No undo information available."] 4 (#$ . 16846) nil]) #@16 Run hg update. (defalias 'xhg-update #[nil "\300\301\302C\"\210\303\207" [dvc-run-dvc-sync xhg "update" #[(output error status arguments) "\301\302\"\207" [default-directory message "hg update complete for %s"] 3]] 3 (#$ . 17373) nil]) #@104 Insert the content of FILE in LAST-REVISION, in current buffer. LAST-REVISION looks like ("path" NUM) (defalias 'xhg-revision-get-last-revision #[(file last-revision) "\304\305 #\210\306 A@! @\307\310\311D\312\313$c*\207" [file last-revision default-directory xhg-rev dvc-trace "xhg-revision-get-last-revision file:%S last-revision:%S" int-to-string dvc-run-dvc-sync xhg "cat" :finished dvc-output-buffer-handler-withnewline] 5 (#$ . 17617)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list xhg-submit-patch-mapping default-boundp set-default nil] 3) (defalias 'xhg-export-via-mail #[(rev) "\306\307\306\211\211 \306\211 \203H @\310@!\310\311 !\230\203?\211!A@)@\211!A@)\211!A@) A\211 \204*\310\"!\n\206R\307#\312R\313#\f\"\210\314\315\316\317#E\320\321$\322\323!\210\324 \210\325 \306\211\211\211&\210\212\326\327!\210\330\331!)`d|\210\332\f\333\"\210eb\210\334\335!\210\336 Pc-\207" [description subject base-file-name destination-email file-name xhg-submit-patch-mapping nil "" dvc-uniquify-file-name xhg-tree-root ".patch" xhg-export dvc-run-dvc-sync xhg "log" "-r" :finished dvc-output-buffer-handler require reporter delete-other-windows reporter-submit-bug-report re-search-backward "^summary: +\\(.+\\)" match-string-no-properties 1 mml-attach-file "text/x-patch" mail-position-on-field "Subject" "[PATCH] " m #1=#:--cl-dolist-temp-- x dvc-temp-directory rev] 7 nil (list (xhg-read-revision "Export revision: "))]) #@81 Shows the logs of the new arrived changesets after a pull and before an update. (defalias 'xhg-missing #[nil "\303\304 !\305\211\211G\306U\203\307\310!\202A\n@\311\230\203\"\312\2029\313\314\315\316\n@E\317\320$\321\322 \"\210\323\324\325 \"!\326\327T!\330P!+\207" [actual-rev last-log id split-string xhg-identify nil 2 message "Nothing missing, already at tip." "unknown" -1 dvc-run-dvc-sync xhg "log" "-r" :finished dvc-output-buffer-handler string-match "changeset: +\\([0-9]+\\)" string-to-number match-string-no-properties 1 xhg-log number-to-string ":tip"] 6 (#$ . 19122) nil]) #@52 Save the current hg diff to a file named FILENAME. (defalias 'xhg-save-diff #[(filename) "\302\303\"\210r\304!q\210\305\306 \210\307\310\311C\312\313$c\210\314 \210\315p!*\207" [filename inhibit-read-only dvc-trace "xhg-save-diff %s" find-file-noselect t erase-buffer dvc-run-dvc-sync xhg "diff" :finished dvc-output-buffer-handler-withnewline save-buffer kill-buffer] 5 (#$ . 19725) (list (read-file-name "Save the hg diff to: "))]) (defalias 'xhg-hgrc-open-hgrc-file #[(file-name) "\301!\210\302!?\205 \303c\207" [file-name find-file file-exists-p "# -*- hgrc -*-\n\n"] 2]) (defalias 'xhg-hgrc-edit-repository-hgrc #[nil "\300\301 \302P!\207" [xhg-hgrc-open-hgrc-file xhg-tree-root ".hg/hgrc"] 3 nil nil]) #@29 Keymap used in `hgrc-mode'. (defvar hgrc-mode-map (make-sparse-keymap) (#$ . 20445)) #@18 `hgrc-mode' menu (defvar hgrc-mode-menu nil (#$ . 20536)) (byte-code "\303\304\305\306$\210\307\310\311\"\210\312\313\211\203%\n@\307\314 \315B\"\210\nA\211\204*\313\207" [hgrc-mode-map re #:--cl-dolist-temp-- easy-menu-do-define hgrc-mode-menu "`hgrc-mode' menu" ("hgrc" ["Show hgrc manpage" hgrc-mode-help t]) add-to-list generic-mode-list "hgrc-mode" ("\\.?hgrc\\'") nil auto-mode-alist hgrc-mode] 5) #@45 Mode to edit mercurial configuration files. (defalias 'hgrc-mode #[nil "\300\301\302\303\304\305%\207" [generic-mode-internal hgrc-mode (59 35) nil (("^\\(\\[.*\\]\\)" 1 font-lock-constant-face) ("^\\s-*\\(.+\\)=\\([^ \n]*\\)" (1 font-lock-variable-name-face) (2 font-lock-type-face))) (hgrc-mode-setup-function)] 6 (#$ . 20954) nil]) (defalias 'hgrc-mode-setup-function #[nil "\301!\207" [hgrc-mode-map use-local-map] 2]) #@50 Show the manual for the hgrc configuration file. (defalias 'hgrc-mode-help #[nil "\300 \210\301\302!\210\303\304\305\"\210\301\306!\207" [split-window other-window 1 apply woman "hgrc" -1] 3 (#$ . 21384) nil]) (provide 'xhg)