Mercurial > emacs
comparison lisp/man.el @ 59398:c47c12607f08
(Man-xref-man-page, Man-xref-header-file)
(Man-xref-normal-file): Add follow-link property.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Thu, 06 Jan 2005 22:00:56 +0000 |
parents | 07f5b835edb6 |
children | 71d8a58f6f27 cb67264d6096 |
comparison
equal
deleted
inserted
replaced
59397:fcfd5e8c8e77 | 59398:c47c12607f08 |
---|---|
413 ) | 413 ) |
414 | 414 |
415 ;; buttons | 415 ;; buttons |
416 (define-button-type 'Man-xref-man-page | 416 (define-button-type 'Man-xref-man-page |
417 'action (lambda (button) (man-follow (button-label button))) | 417 'action (lambda (button) (man-follow (button-label button))) |
418 'help-echo "RET, mouse-2: display this man page") | 418 'follow-link t |
419 'help-echo "mouse-2, RET: display this man page") | |
419 | 420 |
420 (define-button-type 'Man-xref-header-file | 421 (define-button-type 'Man-xref-header-file |
421 'action (lambda (button) | 422 'action (lambda (button) |
422 (let ((w (button-get button 'Man-target-string))) | 423 (let ((w (button-get button 'Man-target-string))) |
423 (unless (Man-view-header-file w) | 424 (unless (Man-view-header-file w) |
424 (error "Cannot find header file: %s" w)))) | 425 (error "Cannot find header file: %s" w)))) |
426 'follow-link t | |
425 'help-echo "mouse-2: display this header file") | 427 'help-echo "mouse-2: display this header file") |
426 | 428 |
427 (define-button-type 'Man-xref-normal-file | 429 (define-button-type 'Man-xref-normal-file |
428 'action (lambda (button) | 430 'action (lambda (button) |
429 (let ((f (substitute-in-file-name | 431 (let ((f (substitute-in-file-name |
431 (if (file-exists-p f) | 433 (if (file-exists-p f) |
432 (if (file-readable-p f) | 434 (if (file-readable-p f) |
433 (view-file f) | 435 (view-file f) |
434 (error "Cannot read a file: %s" f)) | 436 (error "Cannot read a file: %s" f)) |
435 (error "Cannot find a file: %s" f)))) | 437 (error "Cannot find a file: %s" f)))) |
438 'follow-link t | |
436 'help-echo "mouse-2: display this file") | 439 'help-echo "mouse-2: display this file") |
437 | 440 |
438 | 441 |
439 ;; ====================================================================== | 442 ;; ====================================================================== |
440 ;; utilities | 443 ;; utilities |