Skip to content

Commit

Permalink
Revert "bug fix of tinyurl"
Browse files Browse the repository at this point in the history
This reverts commit 351a9dd.
  • Loading branch information
hayamiz committed Dec 22, 2009
1 parent 351a9dd commit be8f557
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 9 deletions.
1 change: 0 additions & 1 deletion ChangeLog
Expand Up @@ -4,7 +4,6 @@
function from macro
(twittering-update-lambda, twittering-update-jojo): more portable
string expression. Executable only in Japanese environment.
(twittering-tinyurl-get): removed unknown function 'url-insert'.

2009-12-21 Tadashi MATSUO <tad@mymail.twin.jp>

Expand Down
13 changes: 5 additions & 8 deletions twittering-mode.el
Expand Up @@ -1441,14 +1441,11 @@ If STATUS-DATUM is already in DATA-VAR, return nil. If not, return t."
(save-excursion
(let ((buffer (url-retrieve-synchronously (concat api longurl))))
(set-buffer buffer)
(beginning-of-buffer)
(search-forward-regexp "\r?\n\r?\n")
(let ((start-pt (point)))
(end-of-line)
(prog1
(buffer-substring start-pt (point))
(kill-buffer buffer)
))))
(url-insert buffer)
(prog1
(buffer-substring (point-min) (point))
(kill-buffer buffer)
)))
nil)))

(defun twittering-tinyurl-replace-at-point ()
Expand Down

0 comments on commit be8f557

Please sign in to comment.