1345 |
(replace-match (format " (default %s)" default) t t prompt 1) |
(replace-match (format " (default %s)" default) t t prompt 1) |
1346 |
(replace-regexp-in-string "[ \t]*\\'" |
(replace-regexp-in-string "[ \t]*\\'" |
1347 |
(format " (default %s) " default) |
(format " (default %s) " default) |
1348 |
prompt t t)))) |
prompt t t)))) |
1349 |
(while |
(while |
1350 |
(progn |
(progn |
1351 |
(let ((str (read-from-minibuffer prompt nil nil nil nil |
(let ((str (read-from-minibuffer prompt nil nil nil nil |
1714 |
(defun insert-buffer-substring-no-properties (buffer &optional start end) |
(defun insert-buffer-substring-no-properties (buffer &optional start end) |
1715 |
"Insert before point a substring of BUFFER, without text properties. |
"Insert before point a substring of BUFFER, without text properties. |
1716 |
BUFFER may be a buffer or a buffer name. |
BUFFER may be a buffer or a buffer name. |
1717 |
Arguments START and END are character numbers specifying the substring. |
Arguments START and END are character positions specifying the substring. |
1718 |
They default to the beginning and the end of BUFFER." |
They default to the values of (point-min) and (point-max) in BUFFER." |
1719 |
(let ((opoint (point))) |
(let ((opoint (point))) |
1720 |
(insert-buffer-substring buffer start end) |
(insert-buffer-substring buffer start end) |
1721 |
(let ((inhibit-read-only t)) |
(let ((inhibit-read-only t)) |
1724 |
(defun insert-buffer-substring-as-yank (buffer &optional start end) |
(defun insert-buffer-substring-as-yank (buffer &optional start end) |
1725 |
"Insert before point a part of BUFFER, stripping some text properties. |
"Insert before point a part of BUFFER, stripping some text properties. |
1726 |
BUFFER may be a buffer or a buffer name. |
BUFFER may be a buffer or a buffer name. |
1727 |
Arguments START and END are character numbers specifying the substring. |
Arguments START and END are character positions specifying the substring. |
1728 |
They default to the beginning and the end of BUFFER. |
They default to the values of (point-min) and (point-max) in BUFFER. |
1729 |
Strip text properties from the inserted text according to |
Strip text properties from the inserted text according to |
1730 |
`yank-excluded-properties'." |
`yank-excluded-properties'." |
1731 |
;; Since the buffer text should not normally have yank-handler properties, |
;; Since the buffer text should not normally have yank-handler properties, |