diff options
| author | Case Duckworth | 2021-08-31 11:27:40 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-08-31 11:27:40 -0500 |
| commit | 5fb6e89bfc54d8d73d7b655f9daea58fdd072e2d (patch) | |
| tree | 7c53cfc21072b77af5e0f2bb3395373345d15572 /lisp | |
| parent | Allow all forms in `safe-define' (diff) | |
| download | emacs-5fb6e89bfc54d8d73d7b655f9daea58fdd072e2d.tar.gz emacs-5fb6e89bfc54d8d73d7b655f9daea58fdd072e2d.zip | |
Rename safe-define to safely
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/acdw-compat.el | 8 |
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 @@ | |||
| 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 |