07/06/28 16:19:47 AzIOWLkm0
>>661
私が使っている関数です。
(defun delete-tab-bol-selection ()
"行頭のタブを削除"
(interactive "*")
(when (member (get-selection-type) '(1 2))
(ed::map-selection #'(lambda (start end)
(save-restriction
(narrow-to-region start end)
(goto-char (point-min))
(replace-buffer "^\t" "" :regexp t))))))