Elisp一天一函数—— skip-chars-backward

• 函数名称：skip-chars-backward
• 函数原型：(skip-chars-backward STRING &optional LIM)
• 函数功能一句话描述：从光标所在的当前位置，向后方向跳过所有满足指定正则表达式的字符，直到遇到一个不满足指定正则表达式的字符停止。

注：

1. "向后方向"是指(point)函数的值减小的方向，"向前方向"与之相对。
2. 函数定义中的参数"STRING"可以是一个正则表达式。

• 相似函数：skip-chars-forward
• 函数用法demo：
  下面的函数实现选中当前的光标所在的单词的功能：

(defun select-current-word ()
  (interactive)
  (let ((word-char-regex "[\\-_a-zA-Z0-9]"))
    (skip-chars-backward word-char-regex)
    (setq start (point))
    (skip-chars-forward word-char-regex)
    (push-mark start)
    (setq mark-active t)))