Mercurial > emacs
comparison lisp/add-log.el @ 62458:2c228409c44d
Replace `read-input' by `read-string'.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Wed, 18 May 2005 10:17:18 +0000 |
parents | 14a8632a734e |
children | b03135d4ca2a f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
62457:4e1114c69642 | 62458:2c228409c44d |
---|---|
490 (full-name (or add-log-full-name (user-full-name))) | 490 (full-name (or add-log-full-name (user-full-name))) |
491 (mailing-address (or add-log-mailing-address user-mail-address))) | 491 (mailing-address (or add-log-mailing-address user-mail-address))) |
492 | 492 |
493 (if whoami | 493 (if whoami |
494 (progn | 494 (progn |
495 (setq full-name (read-input "Full name: " full-name)) | 495 (setq full-name (read-string "Full name: " full-name)) |
496 ;; Note that some sites have room and phone number fields in | 496 ;; Note that some sites have room and phone number fields in |
497 ;; full name which look silly when inserted. Rather than do | 497 ;; full name which look silly when inserted. Rather than do |
498 ;; anything about that here, let user give prefix argument so that | 498 ;; anything about that here, let user give prefix argument so that |
499 ;; s/he can edit the full name field in prompter if s/he wants. | 499 ;; s/he can edit the full name field in prompter if s/he wants. |
500 (setq mailing-address | 500 (setq mailing-address |
501 (read-input "Mailing address: " mailing-address)))) | 501 (read-string "Mailing address: " mailing-address)))) |
502 | 502 |
503 (unless (equal file-name buffer-file-name) | 503 (unless (equal file-name buffer-file-name) |
504 (if (or other-window (window-dedicated-p (selected-window))) | 504 (if (or other-window (window-dedicated-p (selected-window))) |
505 (find-file-other-window file-name) | 505 (find-file-other-window file-name) |
506 (find-file file-name))) | 506 (find-file file-name))) |