From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 13 Nov 1993 08:21:16 +0000 (+0000)
Subject: (remove-hook): Function deleted.
X-Git-Tag: emacs-19.34~10854
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=54d4b6096c15c812b60cc4860f149e93c7f4bc7d;p=emacs.git

(remove-hook): Function deleted.
---

diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el
index eaa405afd33..1334505a62b 100644
--- a/lisp/emacs-lisp/lucid.el
+++ b/lisp/emacs-lisp/lucid.el
@@ -52,18 +52,6 @@
     (if tail
 	(setcdr tail new-parent))))
 
-(defun remove-hook (hook-var function)
-  "Remove a function from a hook, if it is present.
-First argument HOOK-VAR (a symbol) is the name of a hook, second
- argument FUNCTION is the function to remove (compared with `eq')."
-  (if (boundp 'hook-var)
-      (let ((old (symbol-value hook-var)))
-	;; If the hook value is a single function, turn it into a list.
-	(if (or (not (listp old)) (eq (car old) 'lambda))
-	    (set hook-var (list old)))
-	;; Now delete FUNCTION.
-	(set hook-var (delq function (symbol-value hook-var))))))
-
 (defun remprop (symbol prop)
   (let ((plist (symbol-plist symbol)))
     (while (eq (car plist) prop)