/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.307.2.15 by miles, Tue Jul 6 09:39:53 2004 UTC revision 1.307.2.16 by miles, Tue Jul 6 09:47:53 2004 UTC
# Line 1345  Optional DEFAULT is a default password t Line 1345  Optional DEFAULT is a default password t
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
# Line 1714  If UNDO is present and non-nil, it is a Line 1714  If UNDO is present and non-nil, it is a
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))
# Line 1724  They default to the beginning and the en Line 1724  They default to the beginning and the en
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,

Legend:
Removed from v.1.307.2.15  
changed lines
  Added in v.1.307.2.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26