mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

Prevent deletion of separator in *edit string* buffer

Browse Source 
* lisp/textmodes/string-edit.el (string-edit): Make the separator
line read-only.  (Bug#71405)
This commit is contained in:
Eli Zaretskii 2024-06-15 11:37:34 +03:00
parent 988203fe98
commit 6d12157fa8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/textmodes/string-edit.el
View File

@ -58,7 +58,8 @@ Also see `read-string-from-buffer'."
(list 'intangible t
'face 'string-edit-prompt
'read-only t))
(insert (propertize (make-separator-line) 'rear-nonsticky t))
(insert (propertize (make-separator-line)
'read-only t 'rear-nonsticky t))
(add-text-properties (point-min) (point)
(list 'string-edit--prompt t))))
(let ((start (point)))