summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw-compat.el8
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.
27Is it necessary? Who knows!!" 27Is 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.
59If the region is active, this function calls `upcase-region'. 59If 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