From ad1cdc1f55bf90f635365b728b91888edf31fa6e Mon Sep 17 00:00:00 2001
From: Yuchen Pei <id@ypei.org>
Date: Wed, 11 Oct 2023 22:38:03 +1100
Subject: [emacs] [gdb] Some minor changes

- emacs: my-elide-region that does the same thing as
  message-elide-region, with the comment-start as the prefix
- gdbinit: an alias to a command that displays all backtrace of all
  threads
---
 emacs/.emacs.d/init/ycp-editing.el   |  3 +--
 emacs/.emacs.d/init/ycp-grep.el      |  3 +++
 emacs/.emacs.d/lisp/my/my-editing.el | 11 +++++++++++
 3 files changed, 15 insertions(+), 2 deletions(-)

(limited to 'emacs')

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
-- 
cgit v1.2.3