--- a/contrib/mq.el Mon Aug 06 20:25:50 2007 +0200
+++ b/contrib/mq.el Tue Aug 07 10:24:33 2007 +0200
@@ -131,7 +131,7 @@
(let ((line (buffer-substring bol (point))))
(when (> (length line) 0)
line))))
-
+
(defun mq-push (&optional patch)
"Push patches until PATCH is reached.
If PATCH is nil, push at most one patch."
@@ -166,7 +166,7 @@
(if ok
(message "Pushing... %s" last-line)
(error "Pushing... %s" last-line)))))
-
+
(defun mq-push-all ()
"Push patches until all are applied."
(interactive)
@@ -195,7 +195,7 @@
(if ok
(message "Popping... %s" last-line)
(error "Popping... %s" last-line)))))
-
+
(defun mq-pop-all ()
"Push patches until none are applied."
(interactive)
@@ -255,7 +255,7 @@
(let ((buf mq-prev-buffer))
(kill-buffer nil)
(switch-to-buffer buf)))
-
+
(defun mq-edit-kill ()
"Kill the edit currently being prepared."
(interactive)
@@ -316,7 +316,7 @@
(set-buffer-modified-p nil)
(setq buffer-undo-list nil)
(run-hooks 'text-mode-hook 'mq-edit-mode-hook))
-
+
(defun mq-refresh-edit ()
"Refresh the topmost applied patch, editing the patch description."
(interactive)