 (defun profile-set-default (profile-name)
   "Make PROFILE-NAME the default profile. The profile must exists."
   (interactive "i")
-  (if (called-interactively-p 'interactive)
+  (if (profile--called-interactively-p 'interactive)
       (setq profile-name
             (completing-read "Set default profile: "
                              profile-obarray nil t

and a specific PROFILE-NAME from the user if called
interactively."
  (interactive "i\ni") ; ignore both arguments, we'll set them later
  (if (called-interactively-p 'interactive)
      (progn
        (setq regexp (read-file-name "Path regexp: "
                                     (buffer-file-name)))

different profile PROFILE-NAME than the default profile and
remember this setting."
  (interactive "GFind file: \ni")
  (if (profile--called-interactively-p 'interactive)
      (setq profile-name
            (completing-read "Apply profile: "
                             profile-obarray nil t
