래퍼 명령을 정의하는 방법은 무엇입니까?

Question

Emacs 명령의 수정 된 버전을 정의하고 싶습니다 (예 : browse-url).

수정 버전

(defun browse-url-incognito (url &rest args) 
    ??? 
    (let ((browse-url-browser-function 'browse-url-generic) 
     (browse-url-generic-program "google-chrome") 
     (browse-url-generic-args '("--incognito"))) 
    (apply 'browse-url url args))) 

문제 대화식 명령으로 기능을 설정한다 ??? 부분이며, 일부 변수를 결합하고 예를 들어, 시스템 명령을 연기한다.

나는 물론, browse-url.el에서 코드를 복사 할 수 있습니다

(interactive (browse-url-interactive-arg "URL: ")) 
    (unless (called-interactively-p 'interactive) 
    (setq args (or args (list browse-url-new-window-flag)))) 

그러나 이것은 부정 행위 같은 느낌 (내 코드가 망가질 언급하지 않기 위하여).

(defun browse-url-incognito() 
    "Call `browse-url' displaying in a chrome incognito window." 
    (interactive) 
    (let ((browse-url-browser-function 'browse-url-generic) 
     (browse-url-generic-program "google-chrome") 
     (browse-url-generic-args '("--incognito"))) 
    (call-interactively 'browse-url))) 

:

Answer 1

call-interactively

법안을 발 보인다