2011-01-13から1日間の記事一覧
(defun kill-word-or-delete-horizontal-space (arg) (interactive "p") (let *1 (char-syntax (char-after (1+ pos)))) (if (and (not (eobp)) (= (char-syntax (char-after pos)) 32);;32=" "=whitespace class (= (char-syntax (char-after (1+ pos))) 32…