emacs lisp में एक फ़ंक्शन लपेटें

Question

1 9 87 में, मैंने एक कोड में पेस्ट करने के लिए कोड लिखा था। स्विच-टू-बफर के प्रारंभिक फ़ंक्शन बाध्यकारी को कैप्चर करने के लिए यहां उपयोग की जाने वाली तंत्र अब और काम नहीं करती है, जिसके परिणामस्वरूप अनंत रिकर्सन होता है। मुझे लगता है कि अब इस तरह की चीज करने का सही तरीका है, क्या कोई मुझे कृपया भर सकता है?

(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 ख दिनचर्या है आप वास्तव में चाहते हैं और 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 है

।