Mercurial > emacs
changeset 50404:019c0ecad8d7
(woman-xref): Removed.
(woman-mode): Use `Man-highlight-references' instead of `WoMan-highlight-references'.
(WoMan-highlight-references): Removed.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 02 Apr 2003 21:24:04 +0000 |
| parents | 7dc2f9f7086b |
| children | 9a2ca7beda84 |
| files | lisp/woman.el |
| diffstat | 1 files changed, 1 insertions(+), 23 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/woman.el Wed Apr 02 21:22:38 2003 +0000 +++ b/lisp/woman.el Wed Apr 02 21:24:04 2003 +0000 @@ -1059,13 +1059,6 @@ Default is '(?n ?e ?o). Set via `woman-emulation'.") -;;; Button types: - -(define-button-type 'woman-xref - 'action (lambda (button) (woman (button-label button))) - 'help-echo "RET, mouse-2: display this man page") - - ;;; Specialized utility functions: ;;; Fast deletion without saving on the kill ring (cf. simple.el): @@ -1869,7 +1862,7 @@ (setq woman-imenu-done nil) (if woman-imenu (woman-imenu)) (setq buffer-read-only nil) - (WoMan-highlight-references) + (Man-highlight-references) (setq buffer-read-only t) (set-buffer-modified-p nil))) @@ -1964,21 +1957,6 @@ (- (cadr time) (cadr WoMan-Man-start-time))))) (message "Man formatting done in %d seconds" time))) -(defun WoMan-highlight-references () - "Highlight the references (in the SEE ALSO section) on mouse-over." - ;; Based on `Man-build-references-alist' in `man'. - (when (Man-find-section Man-see-also-regexp) - (forward-line 1) - (let ((end (save-excursion - (Man-next-section 1) - (point)))) - (back-to-indentation) - (while (re-search-forward Man-reference-regexp end t) - ;; Highlight reference when mouse is over it. - ;; (NB: WoMan does not hyphenate!) - (make-text-button (match-beginning 1) (match-end 1) - 'type 'woman-xref))))) - ;;; Buffer handling: