From 25f0fe5d68ebec67f3a1ca2f24c4a0bc8e49381f Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Fri, 5 Apr 2024 09:12:32 +1100 Subject: [emacs][urxvt] bunch of small changes - add org clock string to frame title - add ansi color to compilation buffer - look for project source dir from build dir - fix my-kill-sexp-or-comment - more lines in urxvt --- emacs/.emacs.d/lisp/my/my-mariadb.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'emacs/.emacs.d/lisp/my/my-mariadb.el') diff --git a/emacs/.emacs.d/lisp/my/my-mariadb.el b/emacs/.emacs.d/lisp/my/my-mariadb.el index 984cc29..52ca8bc 100644 --- a/emacs/.emacs.d/lisp/my/my-mariadb.el +++ b/emacs/.emacs.d/lisp/my/my-mariadb.el @@ -63,6 +63,7 @@ (replace-regexp-in-string "/src" "/build/mysql-test/var/log/mysqld.1.1.rr/latest-trace" + ;; "/build/mysql-test/var/log/mysqld.3.1.rr/latest-trace" (project-root (project-current t)))) (expand-file-name "~/bin/gdb-mi.sh")))) @@ -185,12 +186,15 @@ (goto-char (point-min)) (while (re-search-forward (concat - "\\(spider_alloc_calc_mem_init\\|init_calc_mem\\|spider_malloc\\|" - "spider_bulk_alloc_mem\\|spider_bulk_malloc\\)" - "\\(([^0-9)_]*\\)\\([0-9]+\\)") + "\\(spider_alloc_calc_mem_init(.*?, \\|init_calc_mem(\\|" + "spider_malloc(.*?, \\|" + "spider_bulk_alloc_mem(.*?, \\|spider_bulk_malloc.*?, \\)" + "\\([0-9]+\\)" + ;; "\\(([^0-9)]*\\)\\([0-9]+\\)" + ) nil t) - (let ((beg (match-beginning 3)) - (end (match-end 3))) + (let ((beg (match-beginning 2)) + (end (match-end 2))) (replace-region-contents beg end #'my-mdev-32524-make-id))) (save-buffer))))) -- cgit v1.2.3