Add aliases (marked obsolete) for BC.

-> v0.7.0
jgarte · Dec 13, 2015 · c40a4fc · c40a4fc
1 parent 361ff76
commit c40a4fc
Showing 1 changed file with 13 additions and 6 deletions.
diff --git a/browse-at-remote.el b/browse-at-remote.el
@@ -245,12 +245,19 @@ kill ring instead of opening it with `browse-url'."
   (interactive)
   (kill-new (browse-at-remote/get-url)))
 
-(defun browse-at-remote ()
-  "Function has been renamed to browse-at-remote/browse,
-and appears here just for backward compatibilty."
-  (interactive)
-  (display-warning :warning "Please use browse-at-remote/browse instead of browse-at-remote.")
-  (browse-at-remote/browse))
+;;;###autoload
+(defalias 'browse-at-remote 'browse-at-remote/browse
+  "Browse the current file with `browse-url'.")
+(make-obsolete 'browse-at-remote 'browse-at-remote/browse "0.7.0")
+
+;;;###autoload
+(defalias 'browse-at-remote/to-clipboard 'browse-at-remote/kill
+  "Add the URL of the current file to the kill ring.
+
+   Works like `browse-at-remote/browse', but puts the address in the
+   kill ring instead of opening it with `browse-url'.")
+
+(make-obsolete 'browse-at-remote/to-clipboard 'browse-at-remote/kill "0.7.0")
 
 (provide 'browse-at-remote)