Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/hsite-ex.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 4be1180a9e89
children 8619ce7e4c50
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
34 ;;; ************************************************************************ 34 ;;; ************************************************************************
35 ;;; Read the comments and modify as desired. 35 ;;; Read the comments and modify as desired.
36 ;;; ************************************************************************ 36 ;;; ************************************************************************
37 37
38 (message "Initializing Hyperbole, please wait...") 38 (message "Initializing Hyperbole, please wait...")
39
40 ;; The following line must not be deleted.
41 (require 'hyperbole)
39 42
40 ;;; ************************************************************************ 43 ;;; ************************************************************************
41 ;;; TIMEZONE SETTING 44 ;;; TIMEZONE SETTING
42 ;;; ************************************************************************ 45 ;;; ************************************************************************
43 46
302 ;;; 305 ;;;
303 (defvar hpath:find-alist 306 (defvar hpath:find-alist
304 (let ((nextstep-suffixes '(("\\.\\(adaptor\\|app\\|bshlf\\|clr\\|concur\\|create\\|diagram\\|dp\\|e?ps\\|frame\\|gif\\|locus\\|Mesa\\|nib\\|project\\|rtf\\|sense\\|tiff\\|tree\\)$" . "open"))) 307 (let ((nextstep-suffixes '(("\\.\\(adaptor\\|app\\|bshlf\\|clr\\|concur\\|create\\|diagram\\|dp\\|e?ps\\|frame\\|gif\\|locus\\|Mesa\\|nib\\|project\\|rtf\\|sense\\|tiff\\|tree\\)$" . "open")))
305 (x-suffixes '(("\\.e?ps$" . "ghostview") 308 (x-suffixes '(("\\.e?ps$" . "ghostview")
306 ("\\.ps\\.g?[zZ]$" . "zcat %s | ghostview -") 309 ("\\.ps\\.g?[zZ]$" . "zcat %s | ghostview -")
307 ("\\.\\(gif\\|tiff?\\|xbm\\|pm\\|pbm\\|jpe?g\\)" . "xv") 310 ("\\.\\(gif\\|tiff?\\|xpm\\|xbm\\|pm\\|pbm\\|jpe?g\\)" . "xv")
308 ("\\.xwd$" . "xwud -noclick -in") 311 ("\\.xwd$" . "xwud -noclick -in")
309 ("\\.ra?s$" . "snapshot -l") 312 ("\\.ra?s$" . "snapshot -l")
310 ("\\.xpm$" . "sxpm")
311 ("\\.\\(fm\\|frame\\|mif\\)$" . 313 ("\\.\\(fm\\|frame\\|mif\\)$" .
312 "frame.pl -vn -preader -c -f%s") ;; was "msgfm_driver" 314 "frame.pl -vn -preader -c -f%s") ;; was "msgfm_driver"
313 ("\\.\\(doc\\|boo\\)$" . "ileaf") 315 ("\\.\\(doc\\|boo\\)$" . "ileaf")
314 ))) 316 )))
315 (if (memq window-system '(dps ns)) 317 (if (memq window-system '(dps ns))