(defun char-at-point () (interactive) (buffer-substring-no-properties (point) (+ 1 (point)))) (defun clj-string-name (s) (substring s 1 -1)) ...
確定! 回上一頁