diff options
| author | Case Duckworth | 2021-06-02 23:38:37 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-06-02 23:38:37 -0500 |
| commit | 71c4d378134353d8f9e2e08571b9f1b9e96f5c06 (patch) | |
| tree | 8079bc9f104e4e7cd8499d725d5bb77cf481503d | |
| parent | Add ssh-config-mode (diff) | |
| download | emacs-71c4d378134353d8f9e2e08571b9f1b9e96f5c06.tar.gz emacs-71c4d378134353d8f9e2e08571b9f1b9e96f5c06.zip | |
Remove commented block
| -rw-r--r-- | lisp/acdw.el | 12 |
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") |