Permalink
Browse files

remove mm-url related code

  • Loading branch information...
1 parent 3a1d49d commit bec918d69cac07dae1cf978e8c833f2f16d182ed @hayamiz committed Dec 27, 2009
Showing with 1 addition and 2 deletions.
  1. +1 −2 twittering-mode.el
View
@@ -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

0 comments on commit bec918d

Please sign in to comment.