Как найти defadvice для рекомендованной функции в Emacs?

Question

Когда я просматриваю документацию для beginning-of-defunесть примечание:

This function is advised.

Around-advice `senator':
Move backward to the beginning of a defun.
If semantic tags are available, use them to navigate.

Однако я не могу найти, в каком файле.el вызывается defadvice. Есть ли способ перейти к исходному файлу, где определен совет?

Изменить: Хотя я пометил правильное предложение Филса о восстановлении файлов.el, я все еще надеюсь, что есть более элегантный способ проследить назад к defadvice.

Answer 1

Насколько я знаю, нет способа перейти к месту нахождения defadvice выражение (я был бы рад быть доказанным неправильно).

Это должно предположительно отследить это:

Mx rgrep RET (defadvice 'beginning-of-defun RET *.el RET ~/.emacs.d/ RET

(или в противном случае каталог site-lisp будет следующим местом для поиска)

Вы также можете просмотреть структуру данных советов следующим образом (но это не включает информацию, которую вы ищете).

(ad-get-advice-info 'beginning-of-defun)