master 62e990db7a2: Make ffap compat aliases obsolete

[Stefan Kangas]

branch: master
commit 62e990db7a2fad16756e019b331c28ad5a5a89fe
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Make ffap compat aliases obsolete
    
    * lisp/ffap.el (ffap-newsgroup-regexp, ffap-newsgroup-heads)
    (ffap-newsgroup-p): Make compatibility aliases obsolete.
---
 lisp/ffap.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 57f5271708b..907f56763ff 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -558,10 +558,6 @@ Looks at `ffap-ftp-default-user', returns \"\" for 
\"localhost\"."
    (ffap-ftp-regexp (ffap-host-to-filename mach))
    ))
 
-(defvaralias 'ffap-newsgroup-regexp 'thing-at-point-newsgroup-regexp)
-(defvaralias 'ffap-newsgroup-heads  'thing-at-point-newsgroup-heads)
-(defalias 'ffap-newsgroup-p 'thing-at-point-newsgroup-p)
-
 (defun ffap-url-p (string)
   "If STRING looks like an URL, return it (maybe improved), else nil."
   (when (and (stringp string) ffap-url-regexp)
@@ -2144,6 +2140,10 @@ Of course if you do not like these bindings, just roll 
your own!")
   (interactive)
   (eval (cons 'progn ffap-bindings)))
 
+(define-obsolete-variable-alias 'ffap-newsgroup-regexp 
'thing-at-point-newsgroup-regexp "30.1")
+(define-obsolete-variable-alias 'ffap-newsgroup-heads  
'thing-at-point-newsgroup-heads "30.1")
+(define-obsolete-function-alias 'ffap-newsgroup-p #'thing-at-point-newsgroup-p 
"30.1")
+
 
 (provide 'ffap)