/[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.396 by miles, Wed Jun 2 22:44:45 2004 UTC revision 1.397 by lektu, Mon Jun 7 20:54:42 2004 UTC
# Line 1339  Optional DEFAULT is a default password t Line 1339  Optional DEFAULT is a default password t
1339                  (replace-match (format " (default %s)" default) t t prompt 1)                  (replace-match (format " (default %s)" default) t t prompt 1)
1340                (replace-regexp-in-string "[ \t]*\\'"                (replace-regexp-in-string "[ \t]*\\'"
1341                                          (format " (default %s) " default)                                          (format " (default %s) " default)
1342                                          prompt t t))))                                          prompt t t))))
1343      (while      (while
1344          (progn          (progn
1345            (let ((str (read-from-minibuffer prompt nil nil nil nil            (let ((str (read-from-minibuffer prompt nil nil nil nil
# Line 1708  If UNDO is present and non-nil, it is a Line 1708  If UNDO is present and non-nil, it is a
1708  (defun insert-buffer-substring-no-properties (buffer &optional start end)  (defun insert-buffer-substring-no-properties (buffer &optional start end)
1709    "Insert before point a substring of BUFFER, without text properties.    "Insert before point a substring of BUFFER, without text properties.
1710  BUFFER may be a buffer or a buffer name.  BUFFER may be a buffer or a buffer name.
1711  Arguments START and END are character numbers specifying the substring.  Arguments START and END are character positions specifying the substring.
1712  They default to the beginning and the end of BUFFER."  They default to the values of (point-min) and (point-max) in BUFFER."
1713    (let ((opoint (point)))    (let ((opoint (point)))
1714      (insert-buffer-substring buffer start end)      (insert-buffer-substring buffer start end)
1715      (let ((inhibit-read-only t))      (let ((inhibit-read-only t))
# Line 1718  They default to the beginning and the en Line 1718  They default to the beginning and the en
1718  (defun insert-buffer-substring-as-yank (buffer &optional start end)  (defun insert-buffer-substring-as-yank (buffer &optional start end)
1719    "Insert before point a part of BUFFER, stripping some text properties.    "Insert before point a part of BUFFER, stripping some text properties.
1720  BUFFER may be a buffer or a buffer name.  BUFFER may be a buffer or a buffer name.
1721  Arguments START and END are character numbers specifying the substring.  Arguments START and END are character positions specifying the substring.
1722  They default to the beginning and the end of BUFFER.  They default to the values of (point-min) and (point-max) in BUFFER.
1723  Strip text properties from the inserted text according to  Strip text properties from the inserted text according to
1724  `yank-excluded-properties'."  `yank-excluded-properties'."
1725    ;; 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.396  
changed lines
  Added in v.1.397

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