Skip to content

Commit

Permalink
remove mm-url related code
Browse files Browse the repository at this point in the history
  • Loading branch information
hayamiz committed Dec 28, 2009
1 parent 3a1d49d commit bec918d
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions twittering-mode.el
Expand Up @@ -1515,15 +1515,14 @@ If STATUS-DATUM is already in DATA-VAR, return nil. If not, return t."
(defun twittering-tinyurl-replace-at-point ()
"Replace the url at point with a tiny version."
(interactive)
(when (featurep 'mm-url)
(let ((url-bounds (bounds-of-thing-at-point 'url)))
(when url-bounds
(let ((url (twittering-tinyurl-get (thing-at-point 'url))))
(when url
(save-restriction
(narrow-to-region (car url-bounds) (cdr url-bounds))
(delete-region (point-min) (point-max))
(insert url))))))))
(insert url)))))))

;;;
;;; Commands
Expand Down

0 comments on commit bec918d

Please sign in to comment.