diff options
| author | Case Duckworth | 2021-08-20 17:28:29 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-08-20 17:28:29 -0500 |
| commit | e423eeca3e6cdaa522c3e974c8f403908e43a964 (patch) | |
| tree | c3388f63243b5cf88a25a26a13b1f032daf4ab34 | |
| parent | Follow user preference in `org-return-follows-link' (diff) | |
| download | emacs-e423eeca3e6cdaa522c3e974c8f403908e43a964.tar.gz emacs-e423eeca3e6cdaa522c3e974c8f403908e43a964.zip | |
Allow acdw/copy-region-as-plain in read-only buffers
| -rw-r--r-- | lisp/acdw.el | 2 |
1 files changed, 1 insertions, 1 deletions
| diff --git a/lisp/acdw.el b/lisp/acdw.el index f642c65..7e82a9a 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
| @@ -312,7 +312,7 @@ With a prefix argument, run git pull on the repo first." | |||
| 312 | 312 | ||
| 313 | (defun acdw/copy-region-plain (start end) | 313 | (defun acdw/copy-region-plain (start end) |
| 314 | "Copy a region to clipboard, removing all Org formatting." | 314 | "Copy a region to clipboard, removing all Org formatting." |
| 315 | (interactive "*r") | 315 | (interactive "r") |
| 316 | (let ((s (buffer-substring-no-properties start end)) | 316 | (let ((s (buffer-substring-no-properties start end)) |
| 317 | (extracted-heading (when (derived-mode-p 'org-mode) | 317 | (extracted-heading (when (derived-mode-p 'org-mode) |
| 318 | (acdw/org-extract-heading-text)))) | 318 | (acdw/org-extract-heading-text)))) |