master ea218f4 1/2: Don't set XEmacs only properties start-open and end-open

[Stefan Kangas]

branch: master
commit ea218f424ae3a016b439f2e2d2abe0a167bac78e
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    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.
---
 lisp/epa.el          |  8 ++------
 lisp/erc/erc.el      |  3 +--
 lisp/gnus/message.el |  2 +-
 lisp/net/eudc-bob.el | 12 +++---------
 lisp/url/url-http.el |  4 +---
 5 files changed, 8 insertions(+), 21 deletions(-)

diff --git a/lisp/epa.el b/lisp/epa.el
index 4e28828..d6c7946 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 bf7b16d..94ea0de 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 0782778..5bdf537 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 bb66825..b2069ed 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 8532da1..75330d3 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