diff options
author | Yuchen Pei <id@ypei.org> | 2023-10-11 22:38:03 +1100 |
---|---|---|
committer | Yuchen Pei <id@ypei.org> | 2023-10-11 22:38:03 +1100 |
commit | ad1cdc1f55bf90f635365b728b91888edf31fa6e (patch) | |
tree | ce717e93afadd10b38481756c500c91e6a207269 /emacs/.emacs.d/lisp | |
parent | 24cc28936e9366e70ed89cc5ddc560b886d25d8b (diff) |
[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
Diffstat (limited to 'emacs/.emacs.d/lisp')
-rw-r--r-- | emacs/.emacs.d/lisp/my/my-editing.el | 11 |
1 files changed, 11 insertions, 0 deletions
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 |