;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\303\304\305\306\307\310\301&\210\302\311\312\313\306\307\310\301&\210\302\314\304\315\306\307\310\301&\210\302\316\304\317\306\307\310\301&\210\302\320\304\321\306\322\310\301&\207" [require mercurial custom-declare-variable mq-mode-hook nil "Hook run when a buffer enters mq-mode." :type sexp :group mq-global-prefix "q" "The global prefix for Mercurial Queues keymap bindings." mq-edit-mode-hook "Hook run after a buffer is populated to edit a patch description." mq-edit-finish-hook "Hook run before a patch description is finished up with." mq-signoff-address "Address with which to sign off on a patch." string] 8)
#@29 Is this file managed by MQ?
(defvar mq-mode nil (#$ . 1064))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local mq-mode put permanent-local t] 4)
(defvar mq-patch-history nil)
(defvar mq-top-patch '(nil))
(defvar mq-prev-buffer nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local mq-prev-buffer put permanent-local t] 4)
(defvar mq-top nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local mq-top put permanent-local t] 4)
(defvar mq-global-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210)\207" [map make-sparse-keymap define-key "." mq-push ">" mq-push-all "," mq-pop "<" mq-pop-all "=" mq-diff "r" mq-refresh "e" mq-refresh-edit "i" mq-new "n" mq-next "o" mq-signoff "p" mq-previous "s" mq-edit-series "t" mq-top] 4))
(byte-code "\302	\"\210\303\304\211\"\207" [mq-global-prefix mq-global-map global-set-key add-minor-mode mq-mode] 3)
(defvar mq-edit-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210)\207" [map make-sparse-keymap define-key "" mq-edit-finish "" mq-edit-kill "" mq-signoff] 4))
#@85 Read a patch name to use with a command.
May return nil, meaning "use the default".
(defalias 'mq-read-patch-name #[(&optional source prompt force) "\306\307\206\310!\211\311\312\313\314\f	\313\n%-\315\"\2055\316\317\320\206*\312\"\321\322
\"\313\211\211\323&)\207" [source str literal newtext regexp patches split-string hg-run0 "qseries" "[
\n]+\\'" "" nil replace-regexp-in-string "\n" completing-read format "Patch%s: " mapcar #[(x) "\211B\207" [x] 2] mq-patch-history force prompt] 8 (#$ . 2398)])
(defalias 'mq-refresh-buffers #[(root) "\212\304!\305\211\2038\n@\306	!\2041	q\210\307 \310\311\312 \"\210\313\314\211\211#\210\315!\210\310\316\312 \"\210)\nA\211\204+\317!\210\320!\207" [root buf --dolist-tail-- ctx hg-buffers-visiting-repo nil verify-visited-file-modtime hg-buffer-context message "Refreshing %s..." buffer-name revert-buffer t hg-restore-context "Refreshing %s...done" hg-update-mode-lines mq-update-mode-lines] 5])
(defalias 'mq-last-line #[nil "db\210\302 \210\303\304!\203\305y\210`\306\210`{\211G\307V\205 	*\207" [bol line beginning-of-line looking-at "^$" -1 nil 0] 3])
#@79 Push patches until PATCH is reached.
If PATCH is nil, push at most one patch.
(defalias 'mq-push #[(&optional patch) "\306 p\307\211\211\204\310\311!\210\312!\210\313\314\f\206\315\"\316\317
!!\210\320 \210\321\322!\210\323\317
!!\210\324!\210\325\326!\210\327\330'\203E'\202H\310\331!\307\332\211\333\f\205R\fC&\334U\335 \336ed\"\211(\322X\204t(\337\232\203~\340\341	\"\203~\316p!\210\342 \210\202\202\343\n!\210*\344!\210\345\334!\210	\205\236\203\232\325\346	\"\202\236\310\346	\",\207" [ok last-line prev-buf root patch buf-name hg-root nil error "Cannot push outside a repository!" hg-sync-buffers format "MQ: Push %s" "next patch" kill-buffer get-buffer-create split-window-vertically other-window 1 switch-to-buffer cd message "Pushing..." apply call-process "No `hg' executable found!" t "qpush" 0 mq-last-line count-lines 2 string-match "Now at:" delete-window hg-view-mode mq-refresh-buffers sit-for "Pushing... %s" hg-binary lines] 9 (#$ . 3542) (list (mq-read-patch-name "qunapplied" " to push" current-prefix-arg))])
#@37 Push patches until all are applied.
(defalias 'mq-push-all #[nil "\300\301!\207" [mq-push "-a"] 2 (#$ . 4608) nil])
#@77 Pop patches until PATCH is reached.
If PATCH is nil, pop at most one patch.
(defalias 'mq-pop #[(&optional patch) "\305 \306\211\211\204\307\310!\210\311\n!\210\312\313!q\210\314\n!\210\315\316!\210\317\320\203*\202-\307\321!\306\322\211\313\f\2057\fC&\323U\324 \325p!\210\326\n!\210\327\323!\210	\205^\203Z\315\330	\"\202^\307\330	\"+\207" [ok last-line root hg-binary patch hg-root nil error "Cannot pop outside a repository!" hg-sync-buffers generate-new-buffer "qpop" cd message "Popping..." apply call-process "No `hg' executable found!" t 0 mq-last-line kill-buffer mq-refresh-buffers sit-for "Popping... %s"] 9 (#$ . 4730) (list (mq-read-patch-name "qapplied" " to pop to" current-prefix-arg))])
#@38 Push patches until none are applied.
(defalias 'mq-pop-all #[nil "\300\301!\207" [mq-pop "-a"] 2 (#$ . 5456) nil])
(defalias 'mq-refresh-internal #[(root &rest args) "\306!\210\307\310!\311\312	\"\210\313\314\315\n#\211@\316\232\203!\311\317	\"\202<\320\321	A\211\322\323\324\325\f\324
%-#*\207" [root patch args ret str literal hg-sync-buffers mq-patch-info "qtop" message "Refreshing %s..." apply hg-run "qrefresh" 0 "Refreshing %s... done." error "Refreshing %s... %s" "[
\n]+\\'" "" nil replace-regexp-in-string newtext regexp] 10])
#@93 Refresh the topmost applied patch.
With a prefix argument, generate a git-compatible patch.
(defalias 'mq-refresh #[(&optional git) "\302 \211\204\303\304!\210\305\306	\205\307#)\207" [root git hg-root error "Cannot refresh outside of a repository!" apply mq-refresh-internal ("--git")] 5 (#$ . 6016) "P"])
(defalias 'mq-patch-info #[(cmd &optional msg) "\306!\211A\211\307\310\311\312
\f\n\311%-	@\313\232\2034\203/\314\315#\2029\2029\316\317\"*\207" [cmd ret str literal newtext regexp hg-run "[
\n]+\\'" "" nil replace-regexp-in-string 0 message "%s patch: %s" error "%s" info msg] 7])
#@46 Print the name of the topmost applied patch.
(defalias 'mq-top #[nil "\300\301\302\"\207" [mq-patch-info "qtop" "Top"] 3 (#$ . 6641) nil])
#@48 Print the name of the next patch to be pushed.
(defalias 'mq-next #[nil "\300\301\302\"\207" [mq-patch-info "qnext" "Next"] 3 (#$ . 6786) nil])
#@117 Print the name of the first patch below the topmost applied patch.
This would become the active patch if popped to.
(defalias 'mq-previous #[nil "\300\301\302\"\207" [mq-patch-info "qprev" "Previous"] 3 (#$ . 6937) nil])
#@70 Finish editing the description of this patch, and refresh the patch.
(defalias 'mq-edit-finish #[nil "\304\305!\232\204\f\306\307!\210\310	!\210\311\312!\210\313	\314ed{#\210\n\315\316!\210\317!)\207" [mq-top hg-root mq-prev-buffer buf mq-patch-info "qtop" error "Topmost patch has changed!" hg-sync-buffers run-hooks mq-edit-finish-hook mq-refresh-internal "-m" kill-buffer nil switch-to-buffer] 5 (#$ . 7164) nil])
#@41 Kill the edit currently being prepared.
(defalias 'mq-edit-kill #[nil "\302 \203\303\304!\205\305\306!\210\307	!)\207" [mq-prev-buffer buf buffer-modified-p y-or-n-p "Really kill this edit? " kill-buffer nil switch-to-buffer] 2 (#$ . 7591) nil])
(defalias 'mq-get-top #[(root) "\303	\"\211\205\nA)\207" [root mq-top-patch entry assoc] 4])
(defalias 'mq-set-top #[(root patch) "\304	\"\211\203\203\n\241\202#\305\n	\"\211\202#B	B\211)\207" [root mq-top-patch entry patch assoc delq] 4])
(defalias 'mq-update-mode-lines #[(root) "\306\n!\210\3071\310\n\311\312!\"0\202\210\310\n\313\"\210\306	!\210)\314\n!\212\315\n!\313\211\205N
@\211q\210\203F\203C\316P\206D\317
A\211\204.\313,\207" [default-directory cwd root patch buf --dolist-tail-- cd (error) mq-set-top mq-patch-info "qtop" nil mq-get-top hg-buffers-visiting-repo " MQ:" " MQ" mq-mode] 5])
#@62 Minor mode for Mercurial repositories with an MQ patch queue
(defalias 'mq-mode #[(&optional arg) "\302 \203\204	?\202\303\302 !\210\304\305!\207" [arg mq-mode hg-root mq-update-mode-lines run-hooks mq-mode-hook] 2 (#$ . 8491) "i"])
#@153 Mode for editing the description of a patch.

Key bindings
------------
\[mq-edit-finish]	use this description
\[mq-edit-kill]	abandon this description
(defalias 'mq-edit-mode #[nil "\306!\210\307	!\210\n\310\311\312\313!\210\313\314\315\316\"\207" [mq-edit-mode-map text-mode-syntax-table text-mode-abbrev-table local-abbrev-table major-mode mode-name use-local-map set-syntax-table mq-edit-mode "MQ-Edit" set-buffer-modified-p nil run-hooks text-mode-hook mq-edit-mode-hook buffer-undo-list] 3 (#$ . 8740) nil])
#@67 Refresh the topmost applied patch, editing the patch description.
(defalias 'mq-refresh-edit #[nil "\203\nq\210\202\305 p\306\307!\310!\210\311\312	\"\313\314\f!!\210edU\203?\315\305!\210\315\316!\210	\n\317\320!c\210eb\210\321 \210\322!\210,\323\324!\207" [mq-prev-buffer patch prev-buffer root buf-name hg-root mq-patch-info "qtop" hg-sync-buffers format "*MQ: Edit description of %s*" switch-to-buffer get-buffer-create make-local-variable mq-top hg-run0 "qheader" mq-edit-mode cd message "Type `C-c C-c' to finish editing and refresh the patch."] 4 (#$ . 9266) nil])
#@189 Create a new empty patch named NAME.
The patch is applied on top of the current topmost patch.
With a prefix argument, forcibly create the patch even if the working
directory is modified.
(defalias 'mq-new #[(name) "\306\307!\210\203\310\311\312	#\202\310\311	\"\211@\313\232\203'\314\315 !\210\306\316!\202?\317\320\nA\211\321\322\323\324
\323\f%-\")\207" [current-prefix-arg name ret str literal newtext message "Creating patch..." hg-run "qnew" "-f" 0 hg-update-mode-lines buffer-file-name "Creating patch... done." error "Creating patch... %s" "[
\n]+\\'" "" nil replace-regexp-in-string regexp] 9 (#$ . 9861) (list (mq-read-patch-name "qseries" " to create" t))])
#@35 Edit the MQ series file directly.
(defalias 'mq-edit-series #[nil "\301 \211\204\302\303!\210\304\305P!)\207" [root hg-root error "Not in an MQ repository!" find-file ".hg/patches/series"] 4 (#$ . 10553) nil])
#@101 Display a diff of the topmost applied patch.
With a prefix argument, display a git-compatible diff.
(defalias 'mq-diff #[(&optional git) "\306\307\310\311!\"p\312	!\210\313	!\210\312	!\210	q\210\212\n\2034\314\203&\202)\315\316!\317\320\317\321\322&\210\202F\314\203=\202@\315\316!\317\320\317\321%\210\323 \210\324 \210)\325ed\"\211\326\267\202\213\313	!\210\327\330!\202\225ed{\211\331\332\317 !\333! 
\317%-\"\313	!\210\327\334\"\")\202\225\335	!\210#\336!+\207" [#1=#:prev-buf- view-buf-name git hg-binary #2=#:temp str format "MQ: Diff of %s" mq-patch-info "qtop" get-buffer-create kill-buffer call-process error "No `hg' executable found!" nil t "qdiff" "--git" diff-mode font-lock-fontify-buffer count-lines #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 88 1 98)) message "(No output)" "[
\n]+\\'" "" replace-regexp-in-string "%s" pop-to-buffer hg-view-mode literal newtext regexp msg hg-prev-buffer] 8 (#$ . 10774) "P"])
#@208 Sign off on the current patch, in the style used by the Linux kernel.
If the variable mq-signoff-address is non-nil, it will be used, otherwise
the value of the ui.username item from your hgrc will be used.
(defalias 'mq-signoff #[nil "\306=\307\211\204
\310 \210\212\206\311\312\313\"\314\fP\315
\307\316#\203*\317\320!\210\202Ldb\210\316\321\322\307\316#\203>\323y\210\202A\324c\210)
c\210\317\325
\"\210\316+\n?\205]	\203[\326 \202]\327 *\207" [major-mode signed was-editing mq-signoff-address user signoff mq-edit-mode nil mq-refresh-edit hg-run0 "debugconfig" "ui.username" "Signed-off-by: " search-forward t message "You have already signed off on this patch." re-search-backward "^Signed-off-by: " 1 "\n" "%s" mq-edit-finish mq-edit-kill case-fold-search] 5 (#$ . 11785) nil])
(provide 'mq)