From 84b197b9f630892614107842268b9a8a644dc360 Mon Sep 17 00:00:00 2001 From: Ola Nilsson Date: Sun, 10 Mar 2024 12:06:54 +0100 Subject: [PATCH 1/3] Set indent-tabs-mode nil with directory local variables --- .dir-locals.el | 4 ++++ 1 file changed, 4 insertions(+) create mode 100644 .dir-locals.el diff --git a/.dir-locals.el b/.dir-locals.el new file mode 100644 index 0000000..277f4a8 --- /dev/null +++ b/.dir-locals.el @@ -0,0 +1,4 @@ +;;; Directory Local Variables -*- no-byte-compile: t -*- +;;; For more information see (info "(emacs) Directory Variables") + +((emacs-lisp-mode . ((indent-tabs-mode . nil)))) From c499104770ed769c6e229c251332518156d14877 Mon Sep 17 00:00:00 2001 From: Ola Nilsson Date: Tue, 5 Mar 2024 22:51:10 +0100 Subject: [PATCH 2/3] Replace defadvice for select-window with define-advice MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Resolves circe.el:1944:2: Warning: ‘defadvice’ is an obsolete macro (as of 30.1); use ‘advice-add’ or ‘define-advice’ --- circe.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/circe.el b/circe.el index 781218f..783ad3d 100644 --- a/circe.el +++ b/circe.el @@ -1941,8 +1941,8 @@ server's chat buffers." (current-buffer)))) ;; There really ought to be a hook for this -(defadvice select-window (after circe-server-track-select-window - (window &optional norecord)) +(define-advice select-window (:after (window &optional _norecord) + circe-server-track-select-window) "Remember the current buffer as the last active buffer. This is used by Circe to know where to put spurious messages." (with-current-buffer (window-buffer window) @@ -1951,7 +1951,6 @@ This is used by Circe to know where to put spurious messages." (ignore-errors (with-circe-server-buffer (setq circe-server-last-active-buffer buf))))))) -(ad-activate 'select-window) (defun circe-reduce-lurker-spam () "Return the value of `circe-reduce-lurker-spam'. From bfb786d3eff7809204467b41b51b8a9ea9e15691 Mon Sep 17 00:00:00 2001 From: Ola Nilsson Date: Tue, 5 Mar 2024 23:03:22 +0100 Subject: [PATCH 3/3] Replace defadvice with define-advice in enable-lui-track MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Resolves lui-track.el: Warning: ‘defadvice’ is an obsolete macro (as of 30.1); use ‘advice-add’ or ‘define-advice’ lui-track.el: Warning: ‘defadvice’ is an obsolete macro (as of 30.1); use ‘advice-add’ or ‘define-advice’ --- lui-track.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lui-track.el b/lui-track.el index 0dbbc7d..983df73 100644 --- a/lui-track.el +++ b/lui-track.el @@ -112,13 +112,15 @@ line to mark last position." "Enable a bar or fringe indicator in Lui buffers that shows where you stopped reading." (interactive) - (defadvice switch-to-buffer (before lui-track activate) + (define-advice switch-to-buffer + (:before (buffer-or-name &optional norecord force-same-window) lui-track) (when (and (eq lui-track-behavior 'before-switch-to-buffer) ;; Do not move the indicator if the buffer is displayed still (<= (length (get-buffer-window-list (current-buffer))) 1)) (lui-track-move))) - (defadvice tracking-next-buffer (before lui-track activate) + (define-advice tracking-next-buffer + (:before () lui-track) (when (eq lui-track-behavior 'before-tracking-next-buffer) (lui-track-move))) (add-hook 'lui-pre-input-hook 'lui-track--move-pre-input))