comparison lisp/faces.el @ 5368:ed74d2ca7082

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 b6e59ea11533
comparison
equal deleted inserted replaced
5367:8b70d37ab80e 5368:ed74d2ca7082
476 (if (null charset) 476 (if (null charset)
477 (face-property-instance face 'font domain) 477 (face-property-instance face 'font domain)
478 (let (matchspec) 478 (let (matchspec)
479 ;; get-charset signals an error if its argument doesn't have an 479 ;; get-charset signals an error if its argument doesn't have an
480 ;; associated charset. 480 ;; associated charset.
481 (setq charset (if-fboundp #'get-charset 481 (setq charset (if-fboundp 'get-charset
482 (get-charset charset) 482 (get-charset charset)
483 (error 'unimplemented "Charset support not available")) 483 (error 'unimplemented "Charset support not available"))
484 matchspec (cons charset nil)) 484 matchspec (cons charset nil))
485 (or (null (setcdr matchspec 'initial)) 485 (or (null (setcdr matchspec 'initial))
486 (face-property-matching-instance 486 (face-property-matching-instance