Fix whitespace and compiler wanings

lisp/org-clock.el

@@ -468,7 +468,6 @@ If not, show simply the clocked time like 01:50."
 	    (concat (org-propertize
 		     org-task-overrun-text
 		     'face 'org-mode-line-clock-overrun) org-mode-line-string)))
- 
   (force-mode-line-update))
 
 (defun org-clock-get-clocked-time ()

lisp/org-html.el

@@ -443,7 +443,7 @@ This may also be a function, building and inserting the postamble.")
 	  (if (string-match "\\`[a-z]\\{1,10\\}:\\(.+\\)" label)
 	      (setq l1 (substring label (match-beginning 1)))
 	    (setq l1 label)))
-	(replace-match (format "[[#%s][l1]]" label l1) t t)))))
+	(replace-match (format "[[#%s][%s]]" label l1) t t)))))
 
 ;;;###autoload
 (defun org-export-as-html-and-open (arg)

lisp/org-mobile.el

@@ -263,7 +263,6 @@ create all custom agenda views, for upload to the mobile phone."
 	  (kill-buffer a-buffer)
 	(let ((cw (selected-window)))
 	  (select-window (get-buffer-window a-buffer))
-	  
 	  (org-agenda-redo)
 	  (select-window cw)))))
   (message "Files for mobile viewer staged"))

lisp/org-publish.el

@@ -42,7 +42,7 @@
 
 (defun org-publish-sanitize-plist (plist)
   (mapcar (lambda (x)
-	    (or (cdr (assoq x '((:index-filename . :sitemap-filename)
+	    (or (cdr (assq x '((:index-filename . :sitemap-filename)
 			       (:index-title . :sitemap-title)
 			       (:index-function . :sitemap-function)
 			       (:index-style . :sitemap-style)