[elpa] 27/35: Use pr-interface when available

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit 167ad9663796137ef8ec92b28b270f5752e2ba2e
Author: Matthew L. Fidler <address@hidden>
Date:   Thu Jul 10 09:11:25 2014 -0500

    Use pr-interface when available
---
 ergoemacs-functions.el |   10 ++++++----
 ergoemacs-themes.el    |    4 +++-
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el
index df1612d..e430661 100644
--- a/ergoemacs-functions.el
+++ b/ergoemacs-functions.el
@@ -264,11 +264,13 @@ C-u C=u deletes old byte compilde `ergoemacs-mode' files."
   (newline-and-indent))
 
 (defun ergoemacs-print-buffer-confirm ()
-  "Print current buffer, but ask for confirmation first."
+  "Print current buffer, but ask for confirmation first.
+If `pr-interface' is available, use that function instead."
   (interactive)
-  (when
-      (y-or-n-p "Print current buffer? ")
-    (print-buffer)))
+  (if (fboundp 'pr-interface)
+      (call-interactively 'pr-interface)
+    (when (y-or-n-p "Print current buffer? ")
+      (print-buffer))))
 
 (defvar ergoemacs-mode)
 (declare-function ergoemacs-emulations "ergoemacs-mode.el")
diff --git a/ergoemacs-themes.el b/ergoemacs-themes.el
index 3214fbf..23e5adc 100644
--- a/ergoemacs-themes.el
+++ b/ergoemacs-themes.el
@@ -1033,7 +1033,9 @@
     (global-set-key [remap describe-key]
                     'ergoemacs-describe-key)
     (global-set-key [remap describe-mode]
-                    'ergoemacs-describe-major-mode)))
+                    'ergoemacs-describe-major-mode)
+    (global-set-key [remap ergoemacs-print-buffer-confirm]
+                    'pr-interface)))
 
 (ergoemacs-theme-component ergoemacs-banish-shift ()
   "Banish Shift Combinations with <apps> SPC"