# HG changeset patch # User Oleksandr Gavenko # Date 1510082256 -7200 # Node ID 2cb45551e1e015ac15a73407cd34d533ee87dbd5 # Parent ca0d31f60a6690aa68bc1fa653871da12387e668 For copy/paste it's better to select line with \n. diff -r ca0d31f60a66 -r 2cb45551e1e0 contrib/gadict.el --- a/contrib/gadict.el Mon Nov 06 10:00:42 2017 +0200 +++ b/contrib/gadict.el Tue Nov 07 21:17:36 2017 +0200 @@ -217,10 +217,17 @@ (goto-char (point-max))) (exchange-point-and-mark)) +(defun gadict-mark-line () + "Mark current line." + (forward-line 0) + (set-mark (point)) + (forward-line 1) + (exchange-point-and-mark)) + (defvar er/try-expand-list) (defun gadict-setup-expansions () "Add `gadict-mode' specific expansions." - (set (make-local-variable 'er/try-expand-list) (list #'er/mark-word #'er/mark-text-sentence #'gadict-mark-article))) + (set (make-local-variable 'er/try-expand-list) (list #'er/mark-word #'gadict-mark-line #'gadict-mark-article))) (defvar font-lock-beg) (defvar font-lock-end)