diff options
| author | jason | 2017-07-06 13:41:13 -0600 |
|---|---|---|
| committer | jason | 2017-07-06 13:41:13 -0600 |
| commit | 193837f93fec2bae59ea95a07cf5e457f6c31fcb (patch) | |
| tree | e648bfe716df50dc9631a3a1696d2b7d1f941f35 | |
| parent | 6b6305b42e9689682048dc5d146b46ee5b73eb74 (diff) | |
| download | dotemacs-193837f93fec2bae59ea95a07cf5e457f6c31fcb.tar.gz dotemacs-193837f93fec2bae59ea95a07cf5e457f6c31fcb.zip | |
Fix a bug with maybe-kill-word
the space wasn't included with maybe kill word, so it was stopping at
new lines
| -rw-r--r-- | local-lib/zzq-funcs.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/local-lib/zzq-funcs.el b/local-lib/zzq-funcs.el index c1bb4a9..400171d 100644 --- a/local-lib/zzq-funcs.el +++ b/local-lib/zzq-funcs.el | |||
| @@ -46,7 +46,7 @@ bind this to C-delete and M-d" | |||
| 46 | (interactive "p") | 46 | (interactive "p") |
| 47 | (if (looking-at "[ \t\r\n]") | 47 | (if (looking-at "[ \t\r\n]") |
| 48 | (let ((start (point))) | 48 | (let ((start (point))) |
| 49 | (re-search-forward "[\t\r\n]+" nil) | 49 | (re-search-forward "[ \t\r\n]+" nil) |
| 50 | (delete-region (point) start)) | 50 | (delete-region (point) start)) |
| 51 | (kill-word arg))) | 51 | (kill-word arg))) |
| 52 | 52 | ||