(defun select-current-word ()"Select the word under cursor.
“word” here is considered any alphanumeric sequence with “_” or “-”."(interactive)(let (pt)(skip-chars-backward "-_A-Za-z0-9")(setq pt (point))(skip-chars-forward "-_A-Za-z0-9")(set-mark pt)))(defun select-current-line ()"Select the current line"(interactive)(end-of-line) ; move to end of line(set-mark (line-beginning-position)))(global-set-key (kbd "C-q") 'select-current-line)
版权声明:本站所有资料均为网友推荐收集整理而来,仅供学习和研究交流使用。
工作时间:8:00-18:00
客服电话
电子邮件
admin@qq.com
扫码二维码
获取最新动态