aboutsummaryrefslogtreecommitdiff
path: root/emacs
diff options
context:
space:
mode:
Diffstat (limited to 'emacs')
-rw-r--r--emacs/.emacs.d/init/ycp-editing.el3
-rw-r--r--emacs/.emacs.d/init/ycp-grep.el3
-rw-r--r--emacs/.emacs.d/lisp/my/my-editing.el11
3 files changed, 15 insertions, 2 deletions
diff --git a/emacs/.emacs.d/init/ycp-editing.el b/emacs/.emacs.d/init/ycp-editing.el
index cdbe09d..b86139e 100644
--- a/emacs/.emacs.d/init/ycp-editing.el
+++ b/emacs/.emacs.d/init/ycp-editing.el
@@ -77,6 +77,7 @@
"C-x C-t" #'my-transpose-lines
"M-`" #'my-buffer-create-scratch
"C-M-;" #'my-comment-and-copy-selection
+ "C-c C-;" #'my-elide-region
"M-Q" #'my-unfill-paragraph
"C-x M-s" #'my-save-without-formatting
"C-x w" #'my-copy-url-at-point
@@ -110,8 +111,6 @@
(:delay 60))
(define-key global-map [f2] 'revert-buffer)
-(define-key global-map (kbd "C-c r r") 'replace-regexp)
-(define-key global-map (kbd "C-c r s") 'replace-string)
(my-package aggressive-indent
(:install t)
diff --git a/emacs/.emacs.d/init/ycp-grep.el b/emacs/.emacs.d/init/ycp-grep.el
index 6496c78..85f15cd 100644
--- a/emacs/.emacs.d/init/ycp-grep.el
+++ b/emacs/.emacs.d/init/ycp-grep.el
@@ -88,6 +88,9 @@
(:delay 5)
(add-hook 'occur-mode-hook #'hl-line-mode)
(my-keybind occur-mode-map "t" #'toggle-truncate-lines)
+ (advice-add 'replace-regexp :around 'my-replace-no-filter)
+ (define-key global-map (kbd "C-c r r") 'replace-regexp)
+ (define-key global-map (kbd "C-c r s") 'replace-string)
)
;;; wgrep (writable grep)
diff --git a/emacs/.emacs.d/lisp/my/my-editing.el b/emacs/.emacs.d/lisp/my/my-editing.el
index b24103f..19043ff 100644
--- a/emacs/.emacs.d/lisp/my/my-editing.el
+++ b/emacs/.emacs.d/lisp/my/my-editing.el
@@ -508,5 +508,16 @@ With an prefix-arg, copy the file name relative to project root."
(forward-comment 1)
(point))))))
+(defun my-elide-region (b e)
+ (interactive "r")
+ (let ((message-elide-ellipsis (concat comment-start
+ " [... %l lines elided]
+")))
+ (message-elide-region b e)))
+
+(defun my-replace-no-filter (old-fun &rest r)
+ (let ((search-invisible t))
+ (apply old-fun r)))
+
(provide 'my-editing)
;;; my-editing.el ends here