Hoán đổi hành vi mặc định của lệnh với hành vi Cu

Nhiều lệnh Emacs thay đổi hành vi của chúng khi được gọi bằng một hoặc nhiều C-utiền tố. Trong một số trường hợp, hành vi mặc định của lệnh ít hữu ích hơn so với hành vi tôi nhận được khi tiền tố với nó C-u. Đồng thời, tôi không muốn loại bỏ hoàn toàn hành vi mặc định.

Để đưa ra một ví dụ cụ thể, quit-windowlệnh (ràng buộc qtrong help-mode) thoát khỏi cửa sổ hiện tại và chôn bộ đệm được hiển thị trong đó theo mặc định. Khi được gọi với C-unó sẽ giết bộ đệm thay thế. Tôi muốn lệnh giết bộ đệm theo mặc định và chôn nó khi được gọi với C-utiền tố.

H: Làm thế nào tôi có thể bảo Emacs thực hiện một lệnh hoạt động như thể nó được gọi với C-u tiền tố theo mặc định trong khi di chuyển hành vi mặc định sang C-u tiền tố ?

Tôi biết rằng tôi có thể giải quyết vấn đề này bằng cách xác định lại lệnh ban đầu hoặc gói nó trong một lệnh tùy chỉnh vượt qua tiền tố args theo sở thích của tôi. Nhưng tôi muốn làm một cái gì đó như thế này:

(swap-args 'quit-window)

Một cái gì đó như thế này:

(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))))))

Rõ ràng, chỉ làm việc cho (interactive "P"). Đối với các loại khác của interactivenó có thể không có ý nghĩa để phủ nhận đối số đầu tiên.

Một phương pháp khác dựa trên thực tế là một interactive-formthuộc tính trong hàm của hàm ghi đè biểu mẫu được chỉ định trong mã: ( ref )

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

Sử dụng (interactive-form 'function)để có được thông số kỹ thuật hiện tại, cũng có thể xử lý các thông số kỹ thuật phức tạp hơn.

Tôi nghĩ rằng giải pháp tốt nhất (nếu có thể) là để bọc các chức năng với (let ((prefix-arg (not current-prefix-arg)))dù

Không dễ như suy nghĩ. Tuy nhiên, vì nó tầm thường khi có lệnh hoán đổi:

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