     (when (and exordium-fci-mode-suppressed
                (null popup-instances))
       (setq exordium-fci-mode-suppressed nil)
+      (setq fci-handle-truncate-lines 'exordium-fci-handle-truncate-lines)
       (turn-on-fci-mode))))
 
 
    (let ((fci-enabled (and (boundp 'fci-mode) fci-mode)))
      (when fci-enabled
        (set (make-local-variable 'exordium-fci-mode-suppressed) fci-enabled)
        (turn-off-fci-mode))))

  (defadvice popup-delete (after restore-fci-mode activate)

  (require 'fill-column-indicator)
  (require 'popup)

  ;;; fci-mode turns line truncation on by default (see
  ;;; `fci-handle-truncate-lines'); this is pretty annoying when you have long
  ;;; lines and fci-mode goes off (to display popup) and your line truncation
  ;;; goes off. Hence, for popups we turn off this handler and let `fc-mode'
  ;;; relay on whatever buffer value of `truncate-lines' is.

  (defvar exordium-fci-mode-suppressed nil)

