Rename safe-define to safely
This commit is contained in:
parent
1c333c2897
commit
5fb6e89bfc
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue