コマンドのデフォルトの動作とCuの動作を入れ替え

多くのEmacsコマンドは、1つ以上のC-u接頭辞を付けて呼び出されると、その動作を変更します。場合によっては、コマンドのデフォルトの動作は、プレフィックスを付けたときに得られる動作よりも私にとってはあまり役に立ちませんC-u。同時に、デフォルトの動作を完全に排除したくありません。

具体的な例を示すと、quit-windowコマンド（にバインドさqれているhelp-mode）は現在のウィンドウを終了し、デフォルトでそのウィンドウに表示されているバッファーを埋め込みます。呼び出されC-uたとき、代わりにバッファを殺します。コマンドで、デフォルトでバッファを強制終了し、C-uプレフィックスで呼び出されたときにバッファを埋めたいと思います。

Q： デフォルトの動作をプレフィックスに移動しながら、コマンドが C-u デフォルトでプレフィックス 付きで呼び出されたかのように動作するようにEmacsに指示するにはどうすればよいですか？C-u

元のコマンドを再定義するか、自分の好みに応じてプレフィックス引数を渡すカスタムコマンドにラップすることで、この問題に対処できることを知っています。しかし、私はむしろこのようなことをしたいと思います：

(swap-args 'quit-window)

このようなもの：

(defun swap-args (fun)
  (if (not (equal (interactive-form fun)
                  '(interactive "P")))
      (error "Unexpected")
    (advice-add
     fun
     :around
     (lambda (x &rest args)
       "Swap the meaning the universal prefix argument"
       (if (called-interactively-p 'any)
           (apply x (cons (not (car args)) (cdr args)))
         (apply x args))))))

明らかに、に対してのみ機能し(interactive "P")ます。他のタイプのinteractive場合、最初の引数を否定することは意味がないかもしれません。

interactive-form関数のplistのプロパティがコードで指定された形式をオーバーライドするという事実に基づく別の方法：（ref）

(put 'org-insert-subheading
     'interactive-form
     '(interactive (progn (if current-prefix-arg
                              '(nil)
                            '((4))))))

を使用(interactive-form 'function)して現在の仕様を取得すると、より複雑な仕様を処理することもできます。

（可能な場合）最善の解決策は、関数をラップすること(let ((prefix-arg (not current-prefix-arg)))です

思ったほど簡単ではありません。ただし、コマンドを入れ替えることは簡単です。

(defun my-quit-window-args-swapped (&optional bury window)
"Adapted docstring blah, blah "
  (interactive "P")
  (quit-restore-window window (if bury 'bury 'kill)))