scip/mark-copy-yank-things-mode
1
0
Fork 0
mirror of https://codeberg.org/scip/mark-copy-yank-things-mode.git synced 2025-12-16 20:10:58 +01:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'master' of github.com:TLINDEN/mark-copy-yank-things-mode

Browse Source
This commit is contained in:
Thomas von Dein
2023-04-13 07:19:11 +02:00
parent 90c542195a 2be8e9a443
commit b40326f29b
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
mark-copy-yank-things-mode.el
View File

@@ -316,8 +316,9 @@ of widest comment line."
(while (looking-at "[0-9\.\/]") (while (looking-at "[0-9\.\/]")
(forward-char 1))) (forward-char 1)))
;; We use these for word finding, since the built-in ;; We use these for word finding, since the built-in word functions do
;; word functions do not include -_. which is annoying ;; not include -_. which is annoying, that is we (re-)define word here
;; independent of syntax table
(defun mcyt-beginning-of-symbol (&optional arg) (defun mcyt-beginning-of-symbol (&optional arg)
(interactive) (interactive)
(backward-word) (backward-word)
@@ -479,7 +480,7 @@ Also supports normal one- or multiline comments, indended or not.
(defun mcyt-copy-buffer(&optional arg) (defun mcyt-copy-buffer(&optional arg)
"Copy the whole buffer into kill-ring, as-is" "Copy the whole buffer into kill-ring, as-is"
(interactive "P") (interactive "P")
(mcyt--blink (point-min) (point-max)) (mcyt--blink (point-min) (point-max))
(copy-region-as-kill (point-min) (point-max)) (copy-region-as-kill (point-min) (point-max))
(message "buffer copied")) (message "buffer copied"))