1 files changed, 4 insertions, 4 deletions
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

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 @@
22	;;; Code:	22	;;; Code:
23		23
24	;; Convenience macro	24	;; Convenience macro
25	(defmacro safe-define (&rest defines)	25	(defmacro safely (&rest defines)
26	"Wrap DEFINES in tests to make sure they're not already defined.	26	"Wrap DEFINES in tests to make sure they're not already defined.
27	Is it necessary? Who knows!!"	27	Is it necessary? Who knows!!"
28	(let (output)	28	(let (output)
@@ -53,7 +53,7 @@ Is it necessary? Who knows!!"
53		53
54	;;; Functions for changing capitalization that Do What I Mean	54	;;; Functions for changing capitalization that Do What I Mean
55	;; Defined in EMACS/lisp/simple.el	55	;; Defined in EMACS/lisp/simple.el
56	(safe-define	56	(safely
57	(defun upcase-dwim (arg)	57	(defun upcase-dwim (arg)
58	"Upcase words in the region, if active; if not, upcase word at point.	58	"Upcase words in the region, if active; if not, upcase word at point.
59	If the region is active, this function calls `upcase-region'.	59	If the region is active, this function calls `upcase-region'.
@@ -88,7 +88,7 @@ to capitalize ARG words."
88	;;; Repeat.el	88	;;; Repeat.el
89	;; Defined in EMACS/lisp/repeat.el	89	;; Defined in EMACS/lisp/repeat.el
90		90
91	(safe-define	91	(safely
92	(defcustom repeat-too-dangerous '(kill-this-buffer)	92	(defcustom repeat-too-dangerous '(kill-this-buffer)
93	"Commands too dangerous to repeat with \\[repeat]."	93	"Commands too dangerous to repeat with \\[repeat]."
94	:group 'convenience	94	:group 'convenience
@@ -538,7 +538,7 @@ Used in `repeat-mode'.")
538		538
539		539
540	;;; goto-address-mode	540	;;; goto-address-mode
541	(safe-define	541	(safely
542	(defvar global-address-mode nil)	542	(defvar global-address-mode nil)
543		543
544	(define-globalized-minor-mode global-goto-address-mode	544	(define-globalized-minor-mode global-goto-address-mode