comparison lisp/subr.el @ 5046:6edbd7807a6e

(remove-hook): Doc fix.
author Richard M. Stallman <rms@gnu.org>
date Tue, 16 Nov 1993 08:44:51 +0000
parents 78c13f3054e5
children d39a061f984a
comparison
equal deleted inserted replaced
5045:ef406a9b2f44 5046:6edbd7807a6e
495 495
496 (defun remove-hook (hook function) 496 (defun remove-hook (hook function)
497 "Remove from the value of HOOK the function FUNCTION. 497 "Remove from the value of HOOK the function FUNCTION.
498 HOOK should be a symbol, and FUNCTION may be any valid function. If 498 HOOK should be a symbol, and FUNCTION may be any valid function. If
499 FUNCTION isn't the value of HOOK, or, if FUNCTION doesn't appear in the 499 FUNCTION isn't the value of HOOK, or, if FUNCTION doesn't appear in the
500 list of hooks to run in HOOK, then nothing is done. See add-hook." 500 list of hooks to run in HOOK, then nothing is done. See `add-hook'."
501 (if (or (not (boundp hook)) ;unbound symbol, or 501 (if (or (not (boundp hook)) ;unbound symbol, or
502 (null (symbol-value hook)) ;value is nil, or 502 (null (symbol-value hook)) ;value is nil, or
503 (null function)) ;function is nil, then 503 (null function)) ;function is nil, then
504 nil ;Do nothing. 504 nil ;Do nothing.
505 (let ((hook-value (symbol-value hook))) 505 (let ((hook-value (symbol-value hook)))