comparison lisp/obsolete.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 d1b17a33450b
children 5f5d48053e86 ac37a5f7e5be
comparison
equal deleted inserted replaced
5367:8b70d37ab80e 5368:ed74d2ca7082
400 400
401 (defun find-non-ascii-charset-string (string) 401 (defun find-non-ascii-charset-string (string)
402 "Return a list of charsets in the STRING except ascii. 402 "Return a list of charsets in the STRING except ascii.
403 It might be available for compatibility with Mule 2.3, 403 It might be available for compatibility with Mule 2.3,
404 because its `find-charset-string' ignores ASCII charset." 404 because its `find-charset-string' ignores ASCII charset."
405 (delq 'ascii (and-fboundp #'charsets-in-string (charsets-in-string string)))) 405 (delq 'ascii (and-fboundp 'charsets-in-string (charsets-in-string string))))
406 (make-obsolete 'find-non-ascii-charset-string 406 (make-obsolete 'find-non-ascii-charset-string
407 "use (delq 'ascii (charsets-in-string STRING)) instead.") 407 "use (delq 'ascii (charsets-in-string STRING)) instead.")
408 408
409 (defun find-non-ascii-charset-region (start end) 409 (defun find-non-ascii-charset-region (start end)
410 "Return a list of charsets except ascii in the region between START and END. 410 "Return a list of charsets except ascii in the region between START and END.
411 It might be available for compatibility with Mule 2.3, 411 It might be available for compatibility with Mule 2.3,
412 because its `find-charset-string' ignores ASCII charset." 412 because its `find-charset-string' ignores ASCII charset."
413 (delq 'ascii (and-fboundp #'charsets-in-region 413 (delq 'ascii (and-fboundp 'charsets-in-region
414 (charsets-in-region start end)))) 414 (charsets-in-region start end))))
415 (make-obsolete 'find-non-ascii-charset-region 415 (make-obsolete 'find-non-ascii-charset-region
416 "use (delq 'ascii (charsets-in-region START END)) instead.") 416 "use (delq 'ascii (charsets-in-region START END)) instead.")
417 417
418 ;; < 21.5 compatibility, eg. https://bugzilla.redhat.com/201524#c2 418 ;; < 21.5 compatibility, eg. https://bugzilla.redhat.com/201524#c2