如何统计调用命令时numeric-argument前的universal-arguments数量？

我来帮你拆解这个问题——核心是要理解Emacs里current-prefix-arg的结构，它本身就携带了你按下C-u的次数和后续数值的信息，不用依赖interactive的多参数传递。

先搞懂current-prefix-arg的结构规则 #

Emacs会根据你输入的前缀组合生成不同形式的current-prefix-arg，我们可以通过解析这些形式来统计C-u次数：

• 单次C-u：返回整数4（代表1次通用前缀）
• 两次C-u：返回列表(4)（代表2次通用前缀）
• 三次C-u：返回列表(16)（代表3次通用前缀）
• C-u 2：返回点对(4 . 2)（1次C-u + 数值2）
• C-u C-u 2：返回点对(16 . 2)（2次C-u + 数值2）
• 直接输入数字（比如2）：返回整数2（0次通用前缀）

1. 写个函数统计C-u的次数 #

我们可以写一个递归函数来解析current-prefix-arg，算出实际按下了几次C-u：

(defun count-universal-args (prefix-arg)
  "统计生成PREFIX-ARG时使用的`C-u'次数。"
  (cond
   ;; 整数类型：判断是4的几次方（单次C-u是4，三次是16=4^2，以此类推）
   ((integerp prefix-arg)
    (if (= prefix-arg 4)
        1
      (if (and (> prefix-arg 0) (zerop (mod (log prefix-arg 4) 1)))
          (log prefix-arg 4)
        0)))
   ;; 列表/点对类型：递归计算car部分的次数再加1（每多一次C-u就嵌套一层）
   ((consp prefix-arg)
    (if (integerp (car prefix-arg))
        (1+ (count-universal-args (car prefix-arg)))
      0))
   ;; 其他情况（比如nil，无前缀）：返回0次
   (t 0)))

测试几个场景：

• (count-universal-args 4) → 1（单次C-u）
• (count-universal-args '(4)) → 2（两次C-u）
• (count-universal-args '(4 . 2)) → 1（C-u 2）
• (count-universal-args '(16 . 2)) → 2（C-u C-u 2）
• (count-universal-args 2) → 0（直接输入2）

2. 提取实际的数值参数 #

接下来需要一个函数，忽略C-u的乘数效应，提取你实际输入的数字（比如C-u 2里的2，而不是4）：

(defun get-prefix-numeric-value (prefix-arg)
  "从PREFIX-ARG中提取实际输入的数值，忽略`C-u'的乘数影响。"
  (cond
   ((integerp prefix-arg) prefix-arg)
   ((consp prefix-arg)
    ;; 如果是点对，cdr就是我们输入的实际数字
    (if (integerp (cdr prefix-arg))
        (cdr prefix-arg)
      ;; 非点对的列表（比如两次C-u），用默认的数值转换
      (prefix-numeric-value prefix-arg)))
   ;; 无前缀时默认返回1
   (t 1)))

3. 重写你的Dired Advice满足需求 #

现在可以修改dired-do-rename的advice，实现你要的逻辑：

• C-u 2：在当前Dired缓冲区重命名2个文件（不启用dwim target）
• C-u C-u 2：启用dired-dwim-target，在其他Dired缓冲区重命名2个文件

(define-advice dired-do-rename (:around (fun &rest args) "defer-dwim")
  (let* ((prefix current-prefix-arg)
         ;; 统计C-u的次数
         (universal-count (count-universal-args prefix))
         ;; 获取实际要操作的文件数量（至少1个）
         (numeric-val (max 1 (get-prefix-numeric-value prefix)))
         ;; 当C-u次数≥2时，启用dwim target
         (dired-dwim-target (>= universal-count 2)))
    ;; 将正确的数值传递给原命令
    (apply fun (list numeric-val))))

关于你的测试函数my-func的说明 #

你之前用interactive "P\nP"无法区分arg1和arg2，因为"P"每次读取的都是当前的current-prefix-arg，而不是历史的前缀参数。要区分通用前缀次数，直接解析current-prefix-arg的结构就可以了，不用依赖interactive的多参数。

修改后的测试函数可以这样写：

(defun my-func ()
  (interactive)
  (let* ((prefix current-prefix-arg)
         (universal-count (count-universal-args prefix))
         (numeric-val (prefix-numeric-value prefix)))
    (message "通用前缀次数: %d, 转换后数值: %S, 原始前缀结构: %S"
             universal-count numeric-val prefix)))

调用测试效果：

• C-u M-x my-func → 通用前缀次数: 1, 转换后数值: 4, 原始前缀结构: 4
• C-u C-u M-x my-func → 通用前缀次数: 2, 转换后数值: 4, 原始前缀结构: (4)
• C-u 2 M-x my-func → 通用前缀次数: 1, 转换后数值: 2, 原始前缀结构: (4 . 2)
• C-u C-u 2 M-x my-func → 通用前缀次数: 2, 转换后数值: 2, 原始前缀结构: (16 . 2)

内容的提问来源于stack exchange，提问作者Rorschach