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 4e288283d131ac24f83cc8dd7d9cd5d016301491..d6c7946c939a1f3a3463ffd9bfc78eaa9555db56 100644 (file)
--- 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 bf7b16d448e1a7468b15db39f3cb30815c16d653..94ea0de7ee7e872d1ad65079168758f7d21a93b0 100644 (file)
--- 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 0782778fd43e6339904ed517b5593541f9bf4663..5bdf53763a2354601aaaeb233c6e43305e0a3062 100644 (file)
--- 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 bb6682520ae5aece540419697019b2693b96180e..b2069ed6ef83294afc64783656572926ece3596e 100644 (file)
--- 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 8532da1d1fb5a6191ba32e1b0b25dcdb9300621d..75330d33277aa04785b843142ae503081f352632 100644 (file)
--- 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