Spacing between blocks

master
Elis Axelsson 10 years ago
parent 1c2a9b8588
commit 6d2e063856
  1. 3
      webpaste.el

@ -184,6 +184,7 @@ When we run out of providers to try, it will restart since
(let ((text (buffer-substring (mark) (point)))) (let ((text (buffer-substring (mark) (point))))
(webpaste-paste-text text))) (webpaste-paste-text text)))
;;;###autoload ;;;###autoload
(defmacro webpaste-save-mark-and-excursion (&rest body) (defmacro webpaste-save-mark-and-excursion (&rest body)
"Wraps usage of sending BODY to ‘save-mark-and-excursion’ / ‘save-excursion’." "Wraps usage of sending BODY to ‘save-mark-and-excursion’ / ‘save-excursion’."
@ -191,6 +192,7 @@ When we run out of providers to try, it will restart since
`(save-excursion ,@body) `(save-excursion ,@body)
`(save-mark-and-excursion ,@body))) `(save-mark-and-excursion ,@body)))
;;;###autoload ;;;###autoload
(defun webpaste-paste-buffer () (defun webpaste-paste-buffer ()
"Paste current buffer to some paste service." "Paste current buffer to some paste service."
@ -201,6 +203,7 @@ When we run out of providers to try, it will restart since
(goto-char (point-max)) ; Go to point-max (goto-char (point-max)) ; Go to point-max
(webpaste-paste-region))) ; Paste region (webpaste-paste-region))) ; Paste region
(provide 'webpaste) (provide 'webpaste)
;;; webpaste.el ends here ;;; webpaste.el ends here

Loading…
Cancel
Save