init.el

@@ -526,8 +526,7 @@
 (use-package window
   :init (setq switch-to-buffer-obey-display-actions t
               switch-to-buffer-in-dedicated-window 'pop
-              recenter-positions '(top middle bottom)
-              display-buffer-base-action '(display-buffer-reuse-window))
+              recenter-positions '(top middle bottom))
   :config (progn
             (add-to-list 'display-buffer-alist
                          '("^\\*Async Shell Command*" display-buffer-no-window))

site-lisp/db-org.el

@@ -405,9 +405,6 @@ is clocked in."
   (unless (derived-mode-p 'org-mode)
     (user-error "Not in Org mode buffer, aborting"))
 
-  ;; XXX: This does not take into account the current setting of
-  ;; CLOCK_MODELINE_TOTAL.
-
   (let ((at-current-clock-p (and (markerp org-clock-hd-marker)
                                  (save-mark-and-excursion ; from `org-clock-in'
                                    (org-back-to-heading t)