From 5fb6e89bfc54d8d73d7b655f9daea58fdd072e2d Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 31 Aug 2021 11:27:40 -0500
Subject: Rename safe-define to safely

---
 lisp/acdw-compat.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lisp')

diff --git a/lisp/acdw-compat.el b/lisp/acdw-compat.el
index 04e42ae..0a1a037 100644
--- a/lisp/acdw-compat.el
+++ b/lisp/acdw-compat.el
@@ -22,7 +22,7 @@
 ;;; Code:
 
 ;; Convenience macro
-(defmacro safe-define (&rest defines)
+(defmacro safely (&rest defines)
   "Wrap DEFINES in tests to make sure they're not already defined.
 Is it necessary?  Who knows!!"
   (let (output)
@@ -53,7 +53,7 @@ Is it necessary?  Who knows!!"
 
 ;;; Functions for changing capitalization that Do What I Mean
 ;; Defined in EMACS/lisp/simple.el
-(safe-define
+(safely
  (defun upcase-dwim (arg)
    "Upcase words in the region, if active; if not, upcase word at point.
 If the region is active, this function calls `upcase-region'.
@@ -88,7 +88,7 @@ to capitalize ARG words."
 ;;; Repeat.el
 ;; Defined in EMACS/lisp/repeat.el
 
-(safe-define
+(safely
  (defcustom repeat-too-dangerous '(kill-this-buffer)
    "Commands too dangerous to repeat with \\[repeat]."
    :group 'convenience
@@ -538,7 +538,7 @@ Used in `repeat-mode'.")
 
 
 ;;; goto-address-mode
-(safe-define
+(safely
  (defvar global-address-mode nil)
  
  (define-globalized-minor-mode global-goto-address-mode
-- 
cgit 1.4.1-21-gabe81