Permalink
Browse files

honor current profile even when no list opened

  • Loading branch information...
1 parent 8827518 commit 70860a4121ffff777d46d4ee9a28e8c89cb0b3e1 @sigma sigma committed Mar 15, 2013
Showing with 5 additions and 1 deletion.
  1. +5 −1 gist.el
View
6 gist.el
@@ -105,7 +105,11 @@ they're posted.")
:description (or description "")
:files files))
(resp (gh-gist-new api gist)))
- (gh-url-add-response-callback resp (or callback 'gist-created-callback))))
+ (gh-url-add-response-callback
+ resp
+ `(lambda (gist)
+ (let ((gh-profile-current-profile ,(oref api :profile)))
+ (funcall (or ,callback 'gist-created-callback) gist))))))
;;;###autoload
(defun gist-region (begin end &optional private callback)

0 comments on commit 70860a4

Please sign in to comment.