1 files changed, 0 insertions, 12 deletions

@@ -66,18 +66,6 @@ ARG).  When called with multiple arguments or a list, it returns
         file
       nil)))
 
-;; (defmacro hook-defun (name hooks &rest forms)
-;;   "Define a function NAME that executes FORMS, and add it to
-;; each hook in HOOKS."
-;;   (declare (indent 2))
-;;   (let ((func-name (intern (concat "hook-defun-" (symbol-name name))))
-;;         (hook-list (if (consp hooks) hooks (list hooks)))
-;;         (hook-defun-add-hook-list))
-;;     `(progn
-;;        (defun ,func-name () "Defined by `hook-defun'." ,@forms)
-;;        ,@(dolist (hook hook-list hook-defun-add-hook-list)
-;;            (push `(add-hook ',hook #',func-name) hook-defun-add-hook-list)))))
-
 (defun kill-region-or-backward-word (arg)
   "Kill region if active, or backward word if not."
   (interactive "p")