Subject: bug#36512: closed (Re: bug#36512: [PATCH] Remove leftover XEmacs compat code from goto-addr.el)

From: [email-masked] (GNU bug Tracking System)
Date: Sat, 06 Jul 2019 09:02:02 +0000

Your bug report

#36512: [PATCH] Remove leftover XEmacs compat code from goto-addr.el

which was filed against the emacs package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
36512: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=36512
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#36512: [PATCH] Remove leftover XEmacs compat code from goto-addr.el
From: Eli Zaretskii <[email-masked]>
To: Stefan Kangas <[email-masked]>
Cc: [email-masked]
Date: Sat, 06 Jul 2019 12:01:18 +0300
List-Id: <debbugs-submit.debbugs.gnu.org>

> From: Stefan Kangas <[email-masked]>
> Date: Fri, 5 Jul 2019 16:37:10 +0200
> 
> In commit dee0ed52, XEmacs compat code was removed from goto-addr.el.
> 
> The attached patch removes some leftover lines to finish the job.

Thanks, pushed.

Subject: [PATCH] Remove leftover XEmacs compat code from goto-addr.el
From: Stefan Kangas <[email-masked]>
To: [email-masked]
Date: Fri, 5 Jul 2019 16:37:10 +0200
List-Id: <debbugs-submit.debbugs.gnu.org>

In commit dee0ed52, XEmacs compat code was removed from goto-addr.el.

The attached patch removes some leftover lines to finish the job.

Thanks,
Stefan Kangas
From 7ee1a2aa0b19486c86d75bdd9302ae48905c2c8a Mon Sep 17 00:00:00 2001
From: Stefan Kangas <[email-masked]>
Date: Fri, 5 Jul 2019 16:29:32 +0200
Subject: [PATCH] * lisp/net/goto-addr.el: Remove leftover XEmacs compat code.

---
 lisp/net/goto-addr.el | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el
index eaa1356955..40a067e625 100644
--- a/lisp/net/goto-addr.el
+++ b/lisp/net/goto-addr.el
@@ -63,16 +63,6 @@
 (require 'thingatpt)
 (autoload 'browse-url-url-at-point "browse-url")
 
-;; XEmacs needs the following definitions.
-(unless (fboundp 'overlays-in)
-  (require 'overlay))
-(unless (fboundp 'line-beginning-position)
-  (defalias 'line-beginning-position 'point-at-bol))
-(unless (fboundp 'line-end-position)
-  (defalias 'line-end-position 'point-at-eol))
-(unless (fboundp 'match-string-no-properties)
-  (defalias 'match-string-no-properties 'match-string))
-
 (defgroup goto-address nil
   "Click to browse URL or to send to e-mail address."
   :group 'mouse
-- 
2.11.0