Mercurial > emacs
comparison lisp/help.el @ 33891:e28e403dd69f
(help-make-xrefs): Delete extraneous newlines at the end of the docstring.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 27 Nov 2000 02:30:42 +0000 |
| parents | da7e7cbec5c6 |
| children | 84d5cf98a5a0 |
comparison
equal
deleted
inserted
replaced
| 33890:e3c85fefcf0d | 33891:e28e403dd69f |
|---|---|
| 1237 (help-xref-button | 1237 (help-xref-button |
| 1238 0 #'describe-function sym | 1238 0 #'describe-function sym |
| 1239 "mouse-2, RET: describe this function")))) | 1239 "mouse-2, RET: describe this function")))) |
| 1240 (zerop (forward-line))))))))) | 1240 (zerop (forward-line))))))))) |
| 1241 (set-syntax-table stab)) | 1241 (set-syntax-table stab)) |
| 1242 ;; Delete extraneous newlines at the end of the docstring | |
| 1243 (goto-char (point-max)) | |
| 1244 (while (and (not (bobp)) (bolp)) | |
| 1245 (delete-char -1)) | |
| 1242 ;; Make a back-reference in this buffer if appropriate. | 1246 ;; Make a back-reference in this buffer if appropriate. |
| 1243 (when (and help-xref-following help-xref-stack) | 1247 (when (and help-xref-following help-xref-stack) |
| 1244 (goto-char (point-max)) | |
| 1245 (save-excursion | 1248 (save-excursion |
| 1246 (insert "\n\n" help-back-label)) | 1249 (insert "\n\n" help-back-label)) |
| 1247 ;; Just to provide the match data: | 1250 ;; Just to provide the match data: |
| 1248 (looking-at (concat "\n\n\\(" (regexp-quote help-back-label) "\\)")) | 1251 (looking-at (concat "\n\n\\(" (regexp-quote help-back-label) "\\)")) |
| 1249 (help-xref-button 1 #'help-xref-go-back (current-buffer)))) | 1252 (help-xref-button 1 #'help-xref-go-back (current-buffer)))) |