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

[profile] / el / dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 93cec99..efbc6ee 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -321,13 +321,13 @@ Interactively, prompt for the command if the variable
 the prefix argument.  Prompt for the directory, and run
 interactively, if requested through the prefix.
 
 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.
 
 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.
 
 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))
 to force interactive compilation."
   (interactive
    (let* ((prefix (prefix-numeric-value current-prefix-arg))


@@ -339,7 +339,7 @@ to force interactive compilation."
               (compilation-read-command command)
             command)
           dir
               (compilation-read-command command)
             command)
           dir

-          (plusp (logand prefix #x51)))))
+          (plusp (logand prefix #x58)))))

   (let ((default-directory (or directory default-directory)))
     (compile command comint)))
 
   (let ((default-directory (or directory default-directory)))
     (compile command comint)))