# HG changeset patch
# User John Wiegley <johnw@newartisans.com>
# Date 1036787335 0
# Node ID 0d0908b6b4cc88858d657c298c498ef413fc9cbd
# Parent  2d1fe430cc352172e26ef131f6183d5b4cf23a3c
(timeclock-modeline-display): Use assq as well as memq to find
`global-mode-string' within `mode-line-format'.  The structure of
that variable has changed in 21.3.

diff -r 2d1fe430cc35 -r 0d0908b6b4cc lisp/calendar/timeclock.el
--- a/lisp/calendar/timeclock.el	Fri Nov 08 20:28:16 2002 +0000
+++ b/lisp/calendar/timeclock.el	Fri Nov 08 20:28:55 2002 +0000
@@ -273,13 +273,13 @@
 		  (> (prefix-numeric-value arg) 0)
 		(not timeclock-modeline-display))))
     (if on-p
-	(let ((list-entry (memq 'global-mode-string
-				mode-line-format)))
+	(let ((list-entry (or (memq 'global-mode-string mode-line-format)
+			      ;; In Emacs 21.3 we must use assq
+			      (assq 'global-mode-string mode-line-format))))
 	  (unless (or (null list-entry)
 		      (memq 'timeclock-mode-string mode-line-format))
-	    (setcdr list-entry
-		    (cons 'timeclock-mode-string
-			  (cdr list-entry))))
+	    (setcdr list-entry (cons 'timeclock-mode-string
+				     (cdr list-entry))))
 	  (unless (memq 'timeclock-update-modeline timeclock-event-hook)
 	    (add-hook 'timeclock-event-hook 'timeclock-update-modeline))
 	  (when timeclock-update-timer