# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 975509617 0
# Node ID 07634865ec4b37860466fa85fdd649482b315570
# Parent  d3bd47722971e880cd3a2bf2aa193d64d6c782ee
(combine-run-hooks): Only run-hooks if there's a hook to run.

diff -r d3bd47722971 -r 07634865ec4b lisp/subr.el
--- a/lisp/subr.el	Wed Nov 29 14:53:29 2000 +0000
+++ b/lisp/subr.el	Wed Nov 29 14:53:37 2000 +0000
@@ -1140,7 +1140,8 @@
 	   (setq ,saved-combine-run-hooks combine-run-hooks)
 	   (fset 'run-hooks ,saved-run-hooks)
 	   (setq combine-run-hooks t)
-	   (apply 'run-hooks ,saved-combine-run-hooks))))))
+	   (if ,saved-combine-run-hooks
+	       (apply 'run-hooks ,saved-combine-run-hooks)))))))
 
 
 (defmacro with-syntax-table (table &rest body)