From: Stefan Kangas <stefan@marxist.se>
Date: Fri, 20 Nov 2020 15:43:57 +0000 (+0100)
Subject: Don't set XEmacs only properties start-open and end-open
X-Git-Tag: emacs-28.0.90~5084
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea218f424ae3a016b439f2e2d2abe0a167bac78e;p=emacs.git

Don't set XEmacs only properties start-open and end-open

* lisp/epa.el (epa-sign-region, epa-encrypt-region):
* lisp/erc/erc.el (erc-display-prompt):
* lisp/gnus/message.el (message-forward-make-body-mime):
* lisp/net/eudc-bob.el (eudc-bob-display-jpeg)
(eudc-bob-display-audio, eudc-bob-display-generic-binary):
* lisp/url/url-http.el
(url-http-chunked-encoding-after-change-function): Don't set XEmacs
only properties start-open and end-open.
---

diff --git a/lisp/epa.el b/lisp/epa.el
index 4e288283d13..d6c7946c939 100644
--- a/lisp/epa.el
+++ b/lisp/epa.el
@@ -1070,9 +1070,7 @@ If no one is selected, default secret key is used.  "
 			   (list 'epa-coding-system-used
 				 epa-last-coding-system-specified
 				 'front-sticky nil
-				 'rear-nonsticky t
-				 'start-open t
-				 'end-open t)))))
+                                 'rear-nonsticky t)))))
 
 (define-obsolete-function-alias 'epa--derived-mode-p 'derived-mode-p "28.1")
 
@@ -1147,9 +1145,7 @@ If no one is selected, symmetric encryption will be performed.  ")
 			   (list 'epa-coding-system-used
 				 epa-last-coding-system-specified
 				 'front-sticky nil
-				 'rear-nonsticky t
-				 'start-open t
-				 'end-open t)))))
+                                 'rear-nonsticky t)))))
 
 ;;;; Key Management
 
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index bf7b16d448e..94ea0de7ee7 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -4014,8 +4014,7 @@ If FACE is non-nil, it will be used to propertize the prompt.  If it is nil,
         ;; of the prompt, but stuff typed in front of the prompt
         ;; shall remain part of the prompt.
         (setq prompt (propertize prompt
-                                 'start-open t ; XEmacs
-                                 'rear-nonsticky t ; Emacs
+                                 'rear-nonsticky t
                                  'erc-prompt t
                                  'field t
                                  'front-sticky t
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 0782778fd43..5bdf53763a2 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -7651,7 +7651,7 @@ Optional DIGEST will use digest to forward."
     ;; Consider there is no illegible text.
     (add-text-properties
      b (point)
-     '(no-illegible-text t rear-nonsticky t start-open t))))
+     '(no-illegible-text t rear-nonsticky t))))
 
 (defun message-forward-make-body-mml (forward-buffer)
   (insert "\n\n<#mml type=message/rfc822 disposition=inline>\n")
diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el
index bb6682520ae..b2069ed6ef8 100644
--- a/lisp/net/eudc-bob.el
+++ b/lisp/net/eudc-bob.el
@@ -153,9 +153,7 @@ display a button."
 				       'end-glyph (if inline glyph)
 				       'duplicable t
 				       'invisible inline
-				       'start-open t
-				       'end-open t
-				       'object-data data))))
+                                       'object-data data))))
 	((fboundp 'create-image)
 	 (let* ((image (create-image data nil t))
 		(props (list 'object-data data 'eudc-image image)))
@@ -192,9 +190,7 @@ display a button."
 			eudc-bob-sound-keymap
 			eudc-bob-sound-menu
 			(list 'duplicable t
-			      'start-open t
-			      'end-open t
-			      'object-data data)))
+                              'object-data data)))
 
 (defun eudc-bob-display-generic-binary (data)
   "Display a button for unidentified binary DATA."
@@ -202,9 +198,7 @@ display a button."
 			eudc-bob-generic-keymap
 			eudc-bob-generic-menu
 			(list 'duplicable t
-			      'start-open t
-			      'end-open t
-			      'object-data data)))
+                              'object-data data)))
 
 (defun eudc-bob-play-sound-at-point ()
   "Play the sound data contained in the button at point."
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 8532da1d1fb..75330d33277 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -1119,9 +1119,7 @@ the end of the document."
               (beginning-of-line)
               (looking-at regexp))
  	    (add-text-properties (match-beginning 0) (match-end 0)
-				 (list 'start-open t
-				       'end-open t
-				       'chunked-encoding t
+                                 (list 'chunked-encoding t
 				       'face 'cursor
 				       'invisible t))
 	    (setq url-http-chunked-length (string-to-number (buffer-substring