Mercurial > hg > xemacs-beta

comparison lisp/prim/about.el @ 165:5a88923fcbfe r20-3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents 6b37e6ddd302
children 85ec50267440
comparison
equal deleted inserted replaced
164:4e0740e5aab2 165:5a88923fcbfe
1 ;;; about.el --- the About The Authors page (shameless self promotion). 1 ;;; about.el --- the About The Authors page (shameless self promotion).
2 2
3 ;; Copyright (c) 1997 Free Software Foundation, Inc. 3 ;; Copyright (c) 1997 Free Software Foundation, Inc.
4 4
5 ;; Keywords: extensions 5 ;; Keywords: extensions
6 ;; Version: 2.2 6 ;; Version: 2.3
7 ;; Maintainer: Hrvoje Niksic <hniksic@srce.hr> 7 ;; Maintainer: Hrvoje Niksic <hniksic@srce.hr>
8 8
9 ;; This file is part of XEmacs. 9 ;; This file is part of XEmacs.
10 10
11 ;; XEmacs is free software; you can redistribute it and/or modify it 11 ;; XEmacs is free software; you can redistribute it and/or modify it
847 847
848 (defun about-show-linked-info (who shortinfo) 848 (defun about-show-linked-info (who shortinfo)
849 (let* ((entry (assq who xemacs-hackers)) 849 (let* ((entry (assq who xemacs-hackers))
850 (name (cadr entry)) 850 (name (cadr entry))
851 (address (caddr entry))) 851 (address (caddr entry)))
852 (let ((widget-link-prefix nil) (widget-link-suffix nil)) 852 (let ((widget-link-prefix "") (widget-link-suffix ""))
853 (widget-create 'link :help-echo (concat "Find out more about " name) 853 (widget-create 'link :help-echo (concat "Find out more about " name)
854 :action 'about-maintainer 854 :action 'about-maintainer
855 :tag name 855 :tag name
856 :value who)) 856 :value who))
857 (widget-insert (about-tabs name) 857 (widget-insert (about-tabs name)