Mercurial > hg > xemacs-beta

comparison lisp/cmdloop.el @ 5368:ed74d2ca7082

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use ', not #', when a given symbol may not have a function binding at read time 2011-03-10 Aidan Kehoe <kehoea@parhasard.net> * cmdloop.el (yes-or-no-p): * cmdloop.el (y-or-n-p): * descr-text.el (describe-char): * diagnose.el (show-memory-usage): * diagnose.el (show-object-memory-usage-stats): * diagnose.el (show-mc-alloc-memory-usage): * diagnose.el (show-gc-stats): * faces.el (face-font-instance): * gtk-font-menu.el (gtk-reset-device-font-menus): * help.el (help-symbol-function-context-menu): * help.el (help-symbol-variable-context-menu): * help.el (help-symbol-function-and-variable-context-menu): * help.el (help-find-source-or-scroll-up): * help.el (help-mouse-find-source-or-track): * help.el (temp-buffer-resize-mode): * minibuf.el (mouse-read-file-name-1): * obsolete.el (find-non-ascii-charset-string): * obsolete.el (find-non-ascii-charset-region): * occur.el (occur-engine): * paragraphs.el (forward-paragraph): * paragraphs.el (forward-sentence): * select.el (activate-region-as-selection): * select.el (select-make-extent-for-selection): * simple.el (zmacs-make-extent-for-region): Use quote, not function, for quoting symbols that may not be fboundp at the point they are read (again, a style issue, since Common Lisp throws an error on this, but we don't, and have no plans to.)
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 10 Mar 2011 18:51:15 +0000
parents f00192e1cd49
children 294ab9180fad ac37a5f7e5be
comparison
equal deleted inserted replaced
5367:8b70d37ab80e 5368:ed74d2ca7082
505 and can edit it until it as been confirmed." 505 and can edit it until it as been confirmed."
506 (if (should-use-dialog-box-p) 506 (if (should-use-dialog-box-p)
507 ;; and-fboundp is redundant, since yes-or-no-p-dialog-box is only 507 ;; and-fboundp is redundant, since yes-or-no-p-dialog-box is only
508 ;; bound if (featurep 'dialog). But it eliminates a compile-time 508 ;; bound if (featurep 'dialog). But it eliminates a compile-time
509 ;; warning. 509 ;; warning.
510 (and-fboundp #'yes-or-no-p-dialog-box (yes-or-no-p-dialog-box prompt)) 510 (and-fboundp 'yes-or-no-p-dialog-box (yes-or-no-p-dialog-box prompt))
511 (yes-or-no-p-minibuf prompt))) 511 (yes-or-no-p-minibuf prompt)))
512 512
513 (defun y-or-n-p (prompt) 513 (defun y-or-n-p (prompt)
514 "Ask user a \"y or n\" question. Return t if answer is \"y\". 514 "Ask user a \"y or n\" question. Return t if answer is \"y\".
515 Takes one argument, which is the string to display to ask the question. 515 Takes one argument, which is the string to display to ask the question.