Mercurial > hg > xemacs-beta
comparison lisp/utils/finder.el @ 199:169c0442b401 r20-3b26
Import from CVS: tag r20-3b26
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:00:33 +0200 |
parents | acd284d43ca1 |
children | 41ff10fd062f |
comparison
equal
deleted
inserted
replaced
198:a94d4839ade3 | 199:169c0442b401 |
---|---|
49 ;; 3. Function to check finder-package-info for unknown keywords. | 49 ;; 3. Function to check finder-package-info for unknown keywords. |
50 | 50 |
51 ;;; Code: | 51 ;;; Code: |
52 | 52 |
53 (require 'lisp-mnt) | 53 (require 'lisp-mnt) |
54 (require 'finder-inf) | 54 (condition-case nil |
55 (require 'finder-inf) | |
56 (t nil)) | |
55 ;; XEmacs addition | 57 ;; XEmacs addition |
56 (require 'picture) | 58 (require 'picture) |
57 (require 'mode-motion) | 59 (require 'mode-motion) |
58 | 60 |
59 (defvar finder-emacs-root-directory | 61 (defvar finder-emacs-root-directory |
96 (local . "code local to your site") | 98 (local . "code local to your site") |
97 (maint . "maintenance aids for the Emacs development group") | 99 (maint . "maintenance aids for the Emacs development group") |
98 (mail . "modes for electronic-mail handling") | 100 (mail . "modes for electronic-mail handling") |
99 (matching . "various sorts of searching and matching") | 101 (matching . "various sorts of searching and matching") |
100 (mouse . "mouse support") | 102 (mouse . "mouse support") |
101 ,@(when (featurep 'mule) | 103 ,(when (featurep 'mule) |
102 (cons 'mule "multi-language extensions")) | 104 (cons 'mule "multi-language extensions")) |
103 (news . "support for netnews reading and posting") | 105 (news . "support for netnews reading and posting") |
104 (oop . "support for object-oriented programming") | 106 (oop . "support for object-oriented programming") |
105 (outlines . "support for hierarchical outlining") | 107 (outlines . "support for hierarchical outlining") |
106 (processes . "process, subshell, compilation, and job control support") | 108 (processes . "process, subshell, compilation, and job control support") |