diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-02-25 20:34:03 +0100 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-02-25 20:35:33 +0100 |
| commit | 319292ce1bfdd927121776ff67592d42cd7774fe (patch) | |
| tree | 48ed0fb5d5ae9a7de79b1d9d635a2ee96e3d8d9e /helm-ring.el | |
| parent | e4e6b533d3e5dfa5a4dd99dffd0a07d1192872ce (diff) | |
Remove read-only property in *mark-ring (#1697).
* helm-ring.el (helm-mark-ring-line-string-at-pos): Do it.
(helm-global-mark-ring-format-buffer): Do it.
Diffstat (limited to 'helm-ring.el')
| -rw-r--r-- | helm-ring.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/helm-ring.el b/helm-ring.el index 65765f46..6a69e5e2 100644 --- a/helm-ring.el +++ b/helm-ring.el @@ -215,6 +215,7 @@ This is a command for `helm-kill-ring-map'." (goto-char pos) (forward-line 0) (let ((line (car (split-string (thing-at-point 'line) "[\n\r]")))) + (remove-text-properties 0 (length line) '(read-only) line) (if (string= "" line) "<EMPTY LINE>" line)))) @@ -267,6 +268,7 @@ This is a command for `helm-kill-ring-map'." (guard (not (string-match-p "\\`\n?\\'" line)))) (car (split-string line "[\n\r]"))) (_ "<EMPTY LINE>")))) + (remove-text-properties 0 (length line) '(read-only) line) (format "%7d:%s: %s" (line-number-at-pos) (marker-buffer marker) line)))) |