Mercurial > hg > xemacs-beta

comparison lisp/prim/about.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents fe104dbd9147
children 9f59509498e1
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
178 (message "One moment please...") 178 (message "One moment please...")
179 (condition-case c 179 (condition-case c
180 (save-restriction 180 (save-restriction
181 (set who nil) 181 (set who nil)
182 (narrow-to-region (point) (point)) 182 (narrow-to-region (point) (point))
183 (insert-file-contents who-xpm) 183 (let ((coding-system-for-read 'binary))
184 (insert-file-contents who-xpm))
184 (if (looking-at "\037\235") ;may already be decompressed... 185 (if (looking-at "\037\235") ;may already be decompressed...
185 (call-process-region (point-min) (point-max) 186 (let ((coding-system-for-write 'binary)
186 "zcat" t t nil)) 187 process-input-coding-system
188 process-output-coding-system)
189 (call-process-region (point-min) (point-max)
190 "zcat" t t nil)))
187 (set who (make-glyph 191 (set who (make-glyph
188 (prog1 (buffer-string) 192 (prog1 (buffer-string)
189 (delete-region (point-min) (point-max))))) 193 (delete-region (point-min) (point-max)))))
190 ) 194 )
191 (error 195 (error
651 (insert " to go back to the previous page.\n") 655 (insert " to go back to the previous page.\n")
652 ) 656 )
653 657
654 ((eq xref 'baw) 658 ((eq xref 'baw)
655 (about-face "Barry Warsaw" 'bold) 659 (about-face "Barry Warsaw" 'bold)
656 (insert " <bwarsaw@cnri.reston.va.us> 660 (insert " <bwarsaw@python.org>
657 661
658 Author of cc-mode for C++, C, and Objective-C editing, and 662 Author of cc-mode for C++, C, and Objective-C editing, and
659 Supercite for mail and news citing. Also various and sundry other 663 Supercite for mail and news citing. Also various and sundry other
660 Emacs utilities, fixes, enhancements and kludgery as whimsy, 664 Emacs utilities, fixes, enhancements and kludgery as whimsy,
661 boredom, and ToT dictate (but not necessarily in that order). 665 boredom, and ToT dictate (but not necessarily in that order).
662 666
667 See \"http://www.python.org/~bwarsaw\".
663 668
664 Daddy 669 Daddy
665 © 1994 Warsaw 670 © 1994 Warsaw
666 ======== 671 ========
667 Drive me Daddy, drive me quick 672 Drive me Daddy, drive me quick
822 out of a big white van set up for nomadic living and hacking. 827 out of a big white van set up for nomadic living and hacking.
823 Implemented the faster stay-up Lucid menus and hyper-apropos. 828 Implemented the faster stay-up Lucid menus and hyper-apropos.
824 Contributor of many dispersed improvements in the core Lisp code, 829 Contributor of many dispersed improvements in the core Lisp code,
825 and back-seat contributor for several of it's major packages. 830 and back-seat contributor for several of it's major packages.
826 831
827 ") (about-xref "Barry Warsaw" 'baw "Find out more about Barry Warsaw") (insert " <bwarsaw@cnri.reston.va.us> 832 ") (about-xref "Barry Warsaw" 'baw "Find out more about Barry Warsaw") (insert " <bwarsaw@python.org>
828 Author of cc-mode for C++, C, and Objective-C editing, and 833 Author of cc-mode for C++, C, and Objective-C editing, and
829 Supercite for mail and news citing. Also various and sundry other 834 Supercite for mail and news citing. Also various and sundry other
830 Emacs utilities, fixes, enhancements and kludgery as whimsy, 835 Emacs utilities, fixes, enhancements and kludgery as whimsy,
831 boredom, and ToT dictate (but not necessarily in that order). 836 boredom, and ToT dictate (but not necessarily in that order).
832 837