emacs: mv notmuch-{show,common}-do-stash

[notmuch] / emacs / notmuch-lib.el

diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el
index abcbfa1f99b8b0f3b0e9e9bb2f409a314d39dd94..9d4e00f6958e5814f113d2f7b68bb3b9b6b540bb 100644 (file)
--- a/emacs/notmuch-lib.el
+++ b/emacs/notmuch-lib.el
@@ -87,6 +87,18 @@ the user hasn't set this variable with the old or new value."
   "Return the user.primary_email value from the notmuch configuration."
   (notmuch-config-get "user.primary_email"))
 
+(defun notmuch-kill-this-buffer ()
+  "Kill the current buffer."
+  (interactive)
+  (kill-buffer (current-buffer)))
+
+;;
+
+(defun notmuch-common-do-stash (text)
+  "Common function to stash text in kill ring, and display in minibuffer."
+  (kill-new text)
+  (message "Stashed: %s" text))
+
 ;;
 
 ;; XXX: This should be a generic function in emacs somewhere, not
@@ -105,3 +117,4 @@ within the current window."
          (assq prop buffer-invisibility-spec)))))
 
 (provide 'notmuch-lib)
+