From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 21 Jul 2017 08:38:21 +0000 (+0100)
Subject: dot-emacs.el: Fix complicated prefix-argument handling for compilation.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/be21efd0c0776326e0d2bdb770d17b8cbffae18c?ds=sidebyside

dot-emacs.el: Fix complicated prefix-argument handling for compilation.

When I was setting this up, I stupidly forgot that the default is 1, not
zero.  Use the 8 bit, not the 1 bit, for interactiveness.
---

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 93cec99..efbc6ee 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -321,13 +321,13 @@ (defun mdw-compile (command &optional directory comint)
 the prefix argument.  Prompt for the directory, and run
 interactively, if requested through the prefix.
 
-Use a prefix of 4, 5, 6, or 7, or type C-u between one and three times, to
+Use a prefix of 4, 6, 12, or 14, or type C-u between one and three times, to
 force prompting for a directory.
 
-Use a prefix of 2, 3, 6, or 7, or type C-u three times, to force
+Use a prefix of 2, 6, 10, or 14, or type C-u three times, to force
 prompting for the command.
 
-Use a prefix of 1, 3, 5, or 7, or type C-u twoce or three times,
+Use a prefix of 8, 10, 12, or 14, or type C-u twice or three times,
 to force interactive compilation."
   (interactive
    (let* ((prefix (prefix-numeric-value current-prefix-arg))
@@ -339,7 +339,7 @@ (defun mdw-compile (command &optional directory comint)
 	       (compilation-read-command command)
 	     command)
 	   dir
-	   (plusp (logand prefix #x51)))))
+	   (plusp (logand prefix #x58)))))
   (let ((default-directory (or directory default-directory)))
     (compile command comint)))