* lisp/lpath.el: Attempt to add another FLIM path to `load-path' if the module
[elisp/gnus.git-] / lisp / lpath.el
1 ;; Shut up.
2
3 (defvar byte-compile-default-warnings)
4
5 (or (featurep 'path-util)
6     (load "apel/path-util"))
7 (add-path "apel")
8 (add-path "flim")
9 (unless (module-installed-p 'mel)
10   ;; FLIM 1.14 may have installed in two "flim" subdirectories.
11   (push (expand-file-name "flim"
12                           (file-name-directory (get-latest-path "^apel$" t)))
13         load-path)
14   (unless (module-installed-p 'mel)
15     (error "
16 FLIM package does not found in %s.
17 Try to re-configure with --with-addpath=FLIM_PATH and run make again.
18 "
19            (progn
20              (add-path "semi")
21              load-path))))
22 (add-path "semi")
23
24 (defun maybe-fbind (args)
25   (while args
26     (or (fboundp (car args))
27         (fset (car args) 'ignore))
28     (setq args (cdr args))))
29
30 (defun maybe-bind (args)
31   (mapcar (lambda (var) (unless (boundp var) (set var nil))) args))
32
33 (if (string-match "XEmacs" emacs-version)
34     (progn
35       (defvar track-mouse nil)
36       (maybe-fbind '(posn-point
37                      event-start x-popup-menu
38                      facemenu-get-face window-at coordinates-in-window-p
39                      easy-menu-create-keymaps
40                      read-event internal-find-face internal-next-face-id
41                      make-face-internal set-frame-face-alist frame-face-alist
42                      facemenu-add-new-face make-face-x-resource-internal
43                      set-font-size set-font-family posn-window
44                      run-with-idle-timer mouse-minibuffer-check window-edges
45                      event-click-count track-mouse read-event mouse-movement-p
46                      event-end mouse-scroll-subr overlay-lists delete-overlay
47                      set-face-stipple mail-abbrevs-setup
48                      make-char-table set-char-table-range font-create-object
49                      x-color-values widget-make-intangible error-message-string
50                      w3-form-encode-xwfu gnus-mule-get-coding-system
51                      decode-coding-string mail-aliases-setup
52                      url-view-url w3-prepare-buffer
53                      set-buffer-multibyte
54                      find-non-ascii-charset-region char-charset
55                      find-charset-region
56                      find-coding-systems-region get-charset-property
57                      coding-system-get w3-region
58                      w3-coding-system-for-mime-charset
59                      rmail-summary-exists rmail-select-summary
60                      rmail-update-summary url-retrieve
61                      temp-directory babel-fetch babel-wash
62                      find-coding-systems-for-charsets sc-cite-regexp
63                      vcard-pretty-print image-type-available-p
64                      put-image create-image  display-graphic-p
65                      find-image insert-image image-size
66                      make-overlay overlay-put make-symbolic-link
67                      subst-char-in-string))
68       (maybe-bind '(global-face-data
69                     mark-active transient-mark-mode mouse-selection-click-count
70                     mouse-selection-click-count-buffer buffer-display-table
71                     font-lock-defaults user-full-name user-login-name
72                     gnus-newsgroup-name gnus-article-x-face-too-ugly
73                     gnus-newsgroup-charset gnus-newsgroup-emphasis-alist
74                     mail-mode-hook
75                     adaptive-fill-first-line-regexp adaptive-fill-regexp
76                     url-current-mime-headers buffer-file-coding-system
77                     w3-image-mappings url-current-mime-type
78                     w3-meta-content-type-charset-regexp
79                     w3-meta-charset-content-type-regexp
80                     url-current-callback-func url-current-callback-data
81                     url-be-asynchronous temporary-file-directory
82                     babel-translations babel-history
83                     display-time-mail-function imap-password
84                     )))
85   (maybe-bind '(mail-mode-hook
86                 enable-multibyte-characters browse-url-browser-function
87                 adaptive-fill-first-line-regexp adaptive-fill-regexp
88                 url-current-mime-headers help-echo-owns-message
89                 w3-meta-content-type-charset-regexp
90                 w3-meta-charset-content-type-regexp
91                 babel-translations babel-history
92                 display-time-mail-function imap-password))
93   (maybe-fbind '(color-instance-rgb-components
94                  temp-directory
95                  glyph-width annotation-glyph window-pixel-width glyph-height
96                  window-pixel-height map-extents
97                  make-color-instance color-instance-name specifier-instance
98                  device-type device-class get-popup-menu-response event-object
99                  add-submenu set-font-family
100                  font-create-object set-font-size frame-device find-face
101                  set-extent-property make-extent characterp display-error
102                  set-face-doc-string frame-property face-doc-string
103                  button-press-event-p next-command-event
104                  widget-make-intangible glyphp make-glyph set-glyph-image
105                  set-glyph-property event-glyph glyph-property event-point
106                  device-on-window-system-p make-gui-button Info-goto-node
107                  pp-to-string color-name
108                  gnus-mule-get-coding-system decode-coding-string
109                  mail-aliases-setup
110                  url-view-url w3-prepare-buffer
111                  char-int
112                  annotationp delete-annotation make-image-specifier
113                  make-annotation events-to-keys
114                  w3-do-setup w3-region
115                  w3-coding-system-for-mime-charset
116                  rmail-summary-exists rmail-select-summary rmail-update-summary
117                  url-generic-parse-url valid-image-instantiator-format-p
118                  babel-fetch babel-wash sc-cite-regexp
119                  put-image create-image display-graphic-p
120                  find-image insert-image image-size
121                  vcard-pretty-print image-type-available-p
122                  coding-system-get find-coding-system
123                  find-coding-systems-for-charsets find-coding-systems-region
124                  font-lock-set-defaults function-max-args get-charset-property
125                  make-symbolic-link map-extents smiley-encode-buffer
126                  toolbar-gnus subst-char-in-string)))
127
128 (setq load-path (cons "." load-path))
129 (require 'custom)
130
131 (defun md5 (object &optional start end coding noerror)
132   )
133
134 (provide 'lpath)