Mercurial > emacs
comparison lisp/faces.el @ 62498:e371d32adcb5
(list-faces-display): Provide button when describe-face
is called to take user back to the list of faces.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Thu, 19 May 2005 00:12:37 +0000 |
| parents | a7e02ef1e3d6 |
| children | bf6a0cd0e835 |
comparison
equal
deleted
inserted
replaced
| 62497:e4728ae2ecf8 | 62498:e371d32adcb5 |
|---|---|
| 1182 ;; Hyperlink to a customization buffer for the face. Using | 1182 ;; Hyperlink to a customization buffer for the face. Using |
| 1183 ;; the help xref mechanism may not be the best way. | 1183 ;; the help xref mechanism may not be the best way. |
| 1184 (save-excursion | 1184 (save-excursion |
| 1185 (save-match-data | 1185 (save-match-data |
| 1186 (search-backward face-name) | 1186 (search-backward face-name) |
| 1187 (setq help-xref-stack-item '(list-faces-display)) | |
| 1187 (help-xref-button 0 'help-customize-face face))) | 1188 (help-xref-button 0 'help-customize-face face))) |
| 1188 (let ((beg (point)) | 1189 (let ((beg (point)) |
| 1189 (line-beg (line-beginning-position))) | 1190 (line-beg (line-beginning-position))) |
| 1190 (insert list-faces-sample-text) | 1191 (insert list-faces-sample-text) |
| 1191 ;; Hyperlink to a help buffer for the face. | 1192 ;; Hyperlink to a help buffer for the face. |