summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-06-02 23:38:37 -0500
committerCase Duckworth2021-06-02 23:38:37 -0500
commit71c4d378134353d8f9e2e08571b9f1b9e96f5c06 (patch)
tree8079bc9f104e4e7cd8499d725d5bb77cf481503d
parentAdd ssh-config-mode (diff)
downloademacs-71c4d378134353d8f9e2e08571b9f1b9e96f5c06.tar.gz
emacs-71c4d378134353d8f9e2e08571b9f1b9e96f5c06.zip
Remove commented block
-rw-r--r--lisp/acdw.el12
1 files changed, 0 insertions, 12 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index f227c94..d048fc0 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -66,18 +66,6 @@ ARG). When called with multiple arguments or a list, it returns
66 file 66 file
67 nil))) 67 nil)))
68 68
69;; (defmacro hook-defun (name hooks &rest forms)
70;; "Define a function NAME that executes FORMS, and add it to
71;; each hook in HOOKS."
72;; (declare (indent 2))
73;; (let ((func-name (intern (concat "hook-defun-" (symbol-name name))))
74;; (hook-list (if (consp hooks) hooks (list hooks)))
75;; (hook-defun-add-hook-list))
76;; `(progn
77;; (defun ,func-name () "Defined by `hook-defun'." ,@forms)
78;; ,@(dolist (hook hook-list hook-defun-add-hook-list)
79;; (push `(add-hook ',hook #',func-name) hook-defun-add-hook-list)))))
80
81(defun kill-region-or-backward-word (arg) 69(defun kill-region-or-backward-word (arg)
82 "Kill region if active, or backward word if not." 70 "Kill region if active, or backward word if not."
83 (interactive "p") 71 (interactive "p")