                                 (or (> lt-line gt-line)
                                     (and (= lt-line gt-line)
                                          (> lt-column gt-column))))))))
+          ;; # Changes unrelated to the buffer
+          (cl-loop
+           for suggestion in sorted
+           do (cl-case (plist-get suggestion :type)
+                (add-package
+                 (intero-add-package (plist-get suggestion :package)))))
           ;; # Changes that do not increase/decrease line numbers
           ;;
           ;; Update in-place suggestions

              (add-to-list 'intero-suggestions
                           (list :type 'add-extension
                                 :extension (match-string 0 text)))
              (setq start (min (length text) (1+ (match-end 0))))))
          ;; Messages of this format:
          ;;

                                        (plist-get suggestion :option)
                                        " #-}")
                         :default t))
                  (add-package
                   (list :key suggestion
                         :title (concat "Enable package: " (plist-get suggestion :package))
                         :default t))
                  (remove-import
                   (list :key suggestion
                         :title (concat "Remove: import "
