Mercurial > hg > xemacs-beta
comparison lisp/cus-edit.el @ 4628:877ad4697eea
Fix typo in comment in cus-edit.el. <87vdqk5bqf.fsf@xemacs.org>
| author | Stephen J. Turnbull <stephen@xemacs.org> |
|---|---|
| date | Sun, 08 Mar 2009 23:40:45 +0900 |
| parents | 7f3d065a56a1 |
| children | 684f0ed6cd4f |
comparison
equal
deleted
inserted
replaced
| 4627:fdc76fec36d3 | 4628:877ad4697eea |
|---|---|
| 871 (format "*Customize Option: %s*" (custom-unlispify-tag-name symbol)))) | 871 (format "*Customize Option: %s*" (custom-unlispify-tag-name symbol)))) |
| 872 | 872 |
| 873 | 873 |
| 874 (defun custom-face-prompt () | 874 (defun custom-face-prompt () |
| 875 ;; Interactive call for `customize-face' and `customize-face-other-window'. | 875 ;; Interactive call for `customize-face' and `customize-face-other-window'. |
| 876 ;; See their docstrings for more information. Note that this call returns a | 876 ;; See their docstrings for more information. Note that this call returns |
| 877 ;; list of only one element. This is because the callers'second arg AT-POINT | 877 ;; a list of only one element. This is because the callers' second arg |
| 878 ;; is only used in interactive calls. | 878 ;; AT-POINT is only used in interactive calls. |
| 879 (let ((faces (get-char-property (point) 'face))) | 879 (let ((faces (get-char-property (point) 'face))) |
| 880 (if (or (null faces) (not current-prefix-arg)) | 880 (if (or (null faces) (not current-prefix-arg)) |
| 881 ;; The default behavior, which is to prompt for all faces, is also | 881 ;; The default behavior, which is to prompt for all faces, is also |
| 882 ;; used as a fall back when a prefix is given but there's no face | 882 ;; used as a fall back when a prefix is given but there's no face |
| 883 ;; under point: | 883 ;; under point: |