From 351a9dd96a9528a1c0aec992208b8404c1fbbf4d Mon Sep 17 00:00:00 2001 From: Yuto Hayamizu Date: Tue, 22 Dec 2009 14:03:04 +0900 Subject: [PATCH] bug fix of tinyurl (twittering-tinyurl-get): removed unknown function 'url-insert'. --- ChangeLog | 1 + twittering-mode.el | 13 ++++++++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index c66b8d38..69ffb1e2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -4,6 +4,7 @@ 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 diff --git a/twittering-mode.el b/twittering-mode.el index 8ce98d01..1bd28488 100644 --- a/twittering-mode.el +++ b/twittering-mode.el @@ -1441,11 +1441,14 @@ 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) - (url-insert buffer) - (prog1 - (buffer-substring (point-min) (point)) - (kill-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) + )))) nil))) (defun twittering-tinyurl-replace-at-point ()