From 1954d3ec296a5fa3a300a19a5b9e84b7b227aa7c Mon Sep 17 00:00:00 2001 From: Daneel Date: Sun, 1 Mar 2026 10:24:01 +0100 Subject: [PATCH] config: replace obsolete defadvice with advice-add (Emacs 30.1) --- config.el | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/config.el b/config.el index 4260087..9404a6a 100644 --- a/config.el +++ b/config.el @@ -888,8 +888,10 @@ Skip for beamer exports — beamer uses adjustbox on plain tabular." (setq vc-ignore-dir-regexp (format "%s\\|%s" vc-ignore-dir-regexp tramp-file-name-regexp)) -(defadvice projectile-project-root (around ignore-remote first activate) - (unless (file-remote-p default-directory) ad-do-it)) +(advice-add 'projectile-project-root :around + (lambda (orig-fn &rest args) + (unless (file-remote-p default-directory) + (apply orig-fn args)))) (setq remote-file-name-inhibit-cache nil tramp-verbose 1) @@ -1584,13 +1586,14 @@ Skip for beamer exports — beamer uses adjustbox on plain tabular." ;; Error handler: catch errors during cal->org event update ;; so sync state is saved even if individual events fail - (defadvice org-caldav-update-events-in-org (around skip-failed-events activate) - "Catch errors during cal->org sync; log and return so sync state is saved." - (condition-case err - ad-do-it - (error - (message "org-caldav: update-events-in-org error (sync continues): %S" err) - (org-caldav-debug-print 1 (format "update-events-in-org error: %S" err))))) + (advice-add 'org-caldav-update-events-in-org :around + (lambda (orig-fn &rest args) + "Catch errors during cal->org sync; log and return so sync state is saved." + (condition-case err + (apply orig-fn args) + (error + (message "org-caldav: update-events-in-org error (sync continues): %S" err) + (org-caldav-debug-print 1 (format "update-events-in-org error: %S" err)))))) (defun my/org-caldav-sync () "Sync 4 CalDAV calendars: Suky (twoway), Placeholders, Family, Klara (read-only)."