diff options
| author | Kim F. Storm | 2006-04-09 23:04:33 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2006-04-09 23:04:33 +0000 |
| commit | a4dad45a786371837a5e6030a874858fc2ecbc4a (patch) | |
| tree | cc1bc8de9349b71fdb198fdcba334da775e120ad | |
| parent | 15ac4d58250bcd7502a48aaeb6ba14204c6d362d (diff) | |
| download | emacs-a4dad45a786371837a5e6030a874858fc2ecbc4a.tar.gz emacs-a4dad45a786371837a5e6030a874858fc2ecbc4a.zip | |
(cua-copy-region-to-global-mark)
(cua-cut-region-to-global-mark): Use filter-buffer-substring.
| -rw-r--r-- | lisp/emulation/cua-gmrk.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emulation/cua-gmrk.el b/lisp/emulation/cua-gmrk.el index c3e6727ab65..842ee9ce0e3 100644 --- a/lisp/emulation/cua-gmrk.el +++ b/lisp/emulation/cua-gmrk.el | |||
| @@ -143,7 +143,7 @@ With prefix argument, don't jump to global mark when cancelling it." | |||
| 143 | (let ((src-buf (current-buffer))) | 143 | (let ((src-buf (current-buffer))) |
| 144 | (save-excursion | 144 | (save-excursion |
| 145 | (if (equal (marker-buffer cua--global-mark-marker) src-buf) | 145 | (if (equal (marker-buffer cua--global-mark-marker) src-buf) |
| 146 | (let ((text (buffer-substring-no-properties start end))) | 146 | (let ((text (filter-buffer-substring start end nil t))) |
| 147 | (goto-char (marker-position cua--global-mark-marker)) | 147 | (goto-char (marker-position cua--global-mark-marker)) |
| 148 | (insert text)) | 148 | (insert text)) |
| 149 | (set-buffer (marker-buffer cua--global-mark-marker)) | 149 | (set-buffer (marker-buffer cua--global-mark-marker)) |
| @@ -167,7 +167,7 @@ With prefix argument, don't jump to global mark when cancelling it." | |||
| 167 | (if (and (< start (marker-position cua--global-mark-marker)) | 167 | (if (and (< start (marker-position cua--global-mark-marker)) |
| 168 | (< (marker-position cua--global-mark-marker) end)) | 168 | (< (marker-position cua--global-mark-marker) end)) |
| 169 | (message "Can't move region into itself") | 169 | (message "Can't move region into itself") |
| 170 | (let ((text (buffer-substring-no-properties start end)) | 170 | (let ((text (filter-buffer-substring start end nil t)) |
| 171 | (p1 (copy-marker start)) | 171 | (p1 (copy-marker start)) |
| 172 | (p2 (copy-marker end))) | 172 | (p2 (copy-marker end))) |
| 173 | (goto-char (marker-position cua--global-mark-marker)) | 173 | (goto-char (marker-position cua--global-mark-marker)) |