|
@@ -42,11 +42,10 @@
|
|
|
(insert *last-pb-url*)
|
|
|
(clipboard-kill-region (point-min) (point-max))))
|
|
|
|
|
|
-(defun display-pb (&optional url-arg)
|
|
|
- "Display either last pb url content, or passed URL.
|
|
|
-Can also be used to display HTML/text via curl in new buf."
|
|
|
+(defun display-pb ()
|
|
|
+ "Display last pb url content, see *last-pb-url*"
|
|
|
(interactive)
|
|
|
- (let* ((url (if url-arg url-arg *last-pb-url*))
|
|
|
+ (let* ((url (if *last-pb-url* *last-pb-url* (error "*last-pb-url* void")))
|
|
|
(r
|
|
|
(shell-command-to-string (format "curl -s %s" url))))
|
|
|
(switch-to-buffer
|