アドバイスを使用してelisp関数の本体の式を変更する

Question

アドバイスを追加するときに、elisp関数のボディの特定の式とどのように一致させますか？具体的には、次の例では、find-fileの代わりにfind-file-noselectを使用するように、つまり、 行(find-file path)は、(find-file-noselect path)になります。

(defun tst-fun (path line column) 
    (find-file path) 
    (goto-char (point-min)) 
    (forward-line (1- line)) 
    (forward-char column)) 

;; not sure how to structure this 
(defadvice tst-fun (around noselect activate) 
    (find-file-noselect (ad-get-arg 0)) 
    ad-do-it) 

私はむしろad-add-functionとしてそれを持っているだろうが、ただ、これは最初の作業を取得しようとしています。

Answer 1

アドバイスでfind-fileをfind-file-noselectと一時的に再定義することができます。

(require 'cl) 
(defadvice tst-fun (around noselect activate) 
    (flet ((find-file (&rest args) 
      (apply 'find-file-noselect args))) 
    ad-do-it))