首页 > 代码库 > lisp

lisp

(defun iedit-symbol-in-defun ()  "Enter `iedit-mode‘ to rename the symbol in current function, or exit it."  (interactive)  (if iedit-mode      (progn        (iedit-mode -1)        (widen))    (progn      (if (thing-at-point ‘symbol)          (progn            (narrow-to-defun)            (iedit-mode t)            (message "When done, run `epy-iedit-in-defun‘ again to quit.")            )        (error "You need to put cursor on identifier.")      )))) 

  

lisp