æ¬å®¶ãä¸å使ã£ããã¨ããªãä¸, ãã¾ãèãã¦ããªãå®è£ ãªã®ã§ãã¶ãæ©è½çã« å¤§å¹ ã«å£ãã¨æãã®ã§ãã, å®è£ ãã¦ã¿ã¾ãã. ã³ã¼ã (defvar my/last-search-char nil) (defun my/forward-to-char (arg &optional char) (interactive "p\n") (unless char (if (memq last-command '(my/forward-to-char my/backward-to-char)) (setq char my/last-search-char) (setq char (read-char "Forward Char: ")))) (setq my/last-search-char char) (when (>= arg 0) (forward-char 1)) (let ((case-f
{{#tags}}- {{label}}
{{/tags}}