]> git.notmuchmail.org Git - notmuch/blobdiff - emacs/notmuch-lib.el
emacs: mv notmuch-{show,common}-do-stash
[notmuch] / emacs / notmuch-lib.el
index dfdcd0520b021e101acc2c105616c720b46c2f1a..9d4e00f6958e5814f113d2f7b68bb3b9b6b540bb 100644 (file)
@@ -94,6 +94,13 @@ the user hasn't set this variable with the old or new value."
 
 ;;
 
+(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
 ;; here.
 (defun point-invisible-p ()
@@ -110,3 +117,4 @@ within the current window."
          (assq prop buffer-invisibility-spec)))))
 
 (provide 'notmuch-lib)
+