Mercurial > emacs
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))) |