emacs - 我可以通过单击 emacs 中的 linum 列来选择文本吗？

Question

看下面我的回答

下一段是为了让机器人开心

T 骨 bresaola boudin pig 排，ullamco non voluptate qui venison fugiat rump pastrami nulla 鸡腿。 Nostrud ham pariatur，laboris brisket duis aliqua elit leberkäse。 Capicola ut pig 肉五花肉，肉丸 veniam 菲力牛排舌头鼓槌侧面 ut proident 广告。 T 骨小腿 culpa 舌头 nulla dolore biltong，pancetta nostrud ut。 Sed 牛腰肉 occaecat，胸肉 anim sint。 Culpa strip 牛排实习 ea aute 肩膀。肋眼肩肉，条状牛排磨碎的圆形 sed 牛胸肉沙朗 consequat capicola 牛肉 leberkäse 小腿 cillum。

Answer 1

这是您可以添加到 .emacs 的代码
当您单击边距并释放光标时，它会选择相应的行。
使用 gnu emacs 23.3 测试

更新:错误修正

(defvar *linum-mdown-line* nil)

(defun line-at-click ()
  (save-excursion
    (let ((click-y (cdr (cdr (mouse-position))))
          (line-move-visual-store line-move-visual))
      (setq line-move-visual t)
      (goto-char (window-start))
      (next-line (1- click-y))
      (setq line-move-visual line-move-visual-store)
      ;; If you are using tabbar substitute the next line with
      ;; (line-number-at-pos))))
      (1+ (line-number-at-pos)))))

(defun md-select-linum ()
  (interactive)
  (goto-line (line-at-click))
  (set-mark (point))
  (setq *linum-mdown-line* (line-number-at-pos)))

(defun mu-select-linum ()
  (interactive)
  (when *linum-mdown-line*
    (let (mu-line)
      (setq mu-line (line-at-click))
      (if (> mu-line *linum-mdown-line*)
          (progn
            (goto-line *linum-mdown-line*)
            (set-mark (point))
            (goto-line mu-line)
            (end-of-line))
          (progn
            (goto-line *linum-mdown-line*)
            (set-mark (line-end-position))
            (goto-line mu-line)
            (beginning-of-line)))
      (setq *linum-mdown* nil))))

(global-set-key (kbd "<left-margin> <down-mouse-1>") 'md-select-linum)
(global-set-key (kbd "<left-margin> <mouse-1>") 'mu-select-linum)
(global-set-key (kbd "<left-margin> <drag-mouse-1>") 'mu-select-linum)