Mercurial > hg > xemacs-beta
diff lisp/prim/novice.el @ 4:b82b59fe008d r19-15b3
Import from CVS: tag r19-15b3
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:46:56 +0200 |
parents | 376386a54a3c |
children | 131b0175ea99 |
line wrap: on
line diff
--- a/lisp/prim/novice.el Mon Aug 13 08:46:35 2007 +0200 +++ b/lisp/prim/novice.el Mon Aug 13 08:46:56 2007 +0200 @@ -20,9 +20,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with XEmacs; see the file COPYING. If not, write to the Free -;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. -;;; Synched up with: FSF 19.30. +;;; Synched up with: FSF 19.34. ;;; Commentary: @@ -78,6 +79,12 @@ (set-buffer standard-output) (help-mode))) (message "Type y, n or Space: ") +; (let ((cursor-in-echo-area t)) +; (while (not (memq (setq char (downcase (read-char))) +; '(? ?y ?n))) +; (ding) +; (message "Please type y, n or Space: ")))) + ;; XEmacs version (let ((cursor-in-echo-area t) (inhibit-quit t) event) @@ -109,7 +116,7 @@ (not (string= "" user-init-file)) (y-or-n-p "Enable command for future editing sessions also? ")) (enable-command this-command) - (put this-command 'disabled nil))) + (put this-command 'disabled nil))) (if (/= char ?n) (call-interactively this-command))))