diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-11-20 16:43:57 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-11-20 16:43:57 +0100 |
| commit | ea218f424ae3a016b439f2e2d2abe0a167bac78e (patch) | |
| tree | e88b0303dfa54ae1f68e70b5b8c965a3c5835f28 /lisp | |
| parent | 8c801138acfb5b1068a78b1a10e055d2e7952c9e (diff) | |
| download | emacs-ea218f424ae3a016b439f2e2d2abe0a167bac78e.tar.gz | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/epa.el | 8 | ||||
| -rw-r--r-- | lisp/erc/erc.el | 3 | ||||
| -rw-r--r-- | lisp/gnus/message.el | 2 | ||||
| -rw-r--r-- | lisp/net/eudc-bob.el | 12 | ||||
| -rw-r--r-- | lisp/url/url-http.el | 4 |
5 files changed, 8 insertions, 21 deletions
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 |