From 207336d53d2b8c0a22e04edbda60fcd87a1ef89b Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Tue, 12 Aug 2025 17:59:10 -0500 Subject: removed unused and broken "who called me" function --- modules/system-utils.el | 24 +----------------------- 1 file changed, 1 insertion(+), 23 deletions(-) (limited to 'modules') diff --git a/modules/system-utils.el b/modules/system-utils.el index 33ad679a..e25f8f03 100644 --- a/modules/system-utils.el +++ b/modules/system-utils.el @@ -1,5 +1,4 @@ ;;; system-utils --- System-Wide Utilities -*- lexical-binding: t; -*- -;; -------------------------------- Use Xdg-Open ------------------------------- ;; author Craig Jennings ;;; Commentary: @@ -347,7 +346,7 @@ with a prefix argument." (insert "\n"))))) ;; ----------------------------------- Proced ---------------------------------- -;; yes, there's a process monitor in Emacs +;; yes, there's a process monitor built-into Emacs. It's just not configured. (use-package proced :defer .5 @@ -377,26 +376,5 @@ with a prefix argument." (setq tmr-notification-urgency 'normal) (setq tmr-descriptions-list 'tmr-description-history)) -;; ------------------------------- Who Called Me? ------------------------------ -;; convenience function to display which function called a message - -(defun who-called-me? (old-fun format &rest args) - "Display the function that called a message. -OLD-FUN: The original function that is being overridden. -FORMAT : The format string used in the original function's `message` call. -ARGS : The variables to populate the placeholders in the format string. - -This function works by overriding an existing function, usually `message`, -with a new version that prints a trace of the function call stack before the -original message." - (let ((trace nil) (n 1) (frame nil)) - (while (setf frame (backtrace-frame n)) - (setf n (1+ n) - trace (cons (cadr frame) trace)) ) - (apply old-fun (concat "<<%S>>\n" format) (cons trace args)))) - -;; uncomment this line for the underlying function -;; (advice-add 'message :around #'who-called-me?) - (provide 'system-utils) ;;; system-utils.el ends here -- cgit v1.2.3