обернуть функцию в Emacs Lisp

Question

В 1987 году я написал код, который собираюсь вставить через минуту. Механизм, использованный здесь для захвата начальной привязки функции переключения в буфер, больше не работает, что приводит к бесконечной рекурсии. Я думаю, что сейчас есть правильный способ сделать что-то подобное, может кто-нибудь, пожалуйста, напишите мне?

(defvar *real-buffer-switcher* nil)

(defun improve-buffer-switch ()
  (if *real-buffer-switcher* nil
    (setq *real-buffer-switcher* (symbol-function 'switch-to-buffer))
    (fset 'switch-to-buffer 'better-switch-to-buffer)
    t))

;(setq *real-buffer-switcher* (symbol-function 'switch-to-buffer))

(defun better-switch-to-buffer (buffer-name &optional no-record)
  (interactive "p") ; c-u c-x b goes ahead and creates. Note that
            ; buffer-name is fraudulently named so as to permit
            ; non-interactive calls.
  ;; first, filter out the noninteractive case.
  (if (or (stringp buffer-name)
      (bufferp buffer-name))
      (funcall *real-buffer-switcher* buffer-name no-record)
    ;; interactive. Numeric arg?
    (funcall *real-buffer-switcher*
         (read-buffer "Buffer name: "
              (other-buffer (current-buffer))
              (= buffer-name 1)))))

(improve-buffer-switch)

Answer 1

Я не уверен, почему код, который раньше работал, больше не работает (если только для вашего *real-buffer-switcher* не установлено значение 'better-buffer-switcher. Есть ли причина, по которой вы не просто связываете Cx b рутина, которую вы действительно хотите, и оставить switch-to-buffer в покое?

Вот так:

(defun better-switch-to-buffer (buffer-name &optional no-record)
  (interactive "p") 
  ;; interactive. Numeric arg?
  (switch-to-buffer
   (read-buffer "Buffer name: "
                (other-buffer (current-buffer))
                (= buffer-name 1))))

(global-set-key (kbd "C-x b") 'better-switch-to-buffer)

Answer 2

Похоже, правильный ответ на мой вопрос - defadvice.