X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Flpath.el;h=c8ee2746b38de68c83793951b01c59f7a3e24f9c;hb=1ab1de8baea5afb8a380e7b28eb16d22615946fc;hp=c98ec0d273f44c6a96f6a12221e1bf81a626040f;hpb=48a71060a212e6c57c8da1c984cd82d897b826f6;p=elisp%2Fgnus.git- diff --git a/lisp/lpath.el b/lisp/lpath.el index c98ec0d..c8ee274 100644 --- a/lisp/lpath.el +++ b/lisp/lpath.el @@ -1,78 +1,70 @@ ;; Shut up. +(defvar byte-compile-default-warnings) + +(or (featurep 'path-util) + (load "apel/path-util")) +(add-path "apel") +(add-path "flim") +(add-path "semi") + (defun maybe-fbind (args) (while args (or (fboundp (car args)) - (defalias (car args) 'ignore)) + (fset (car args) 'ignore)) (setq args (cdr args)))) (defun maybe-bind (args) (mapcar (lambda (var) (unless (boundp var) (set var nil))) args)) -(maybe-fbind '(bbdb-create-internal bbdb-records - create-image display-graphic-p - display-time-event-handler find-image image-size - image-type-available-p insert-image - make-mode-line-mouse-map make-temp-file open-ssl-stream - propertize put-image replace-regexp-in-string - rmail-msg-is-pruned rmail-msg-restore-non-pruned-header - sort-coding-systems spam-BBDB-register-routine - spam-enter-ham-BBDB tool-bar-add-item - tool-bar-add-item-from-menu tool-bar-local-item-from-menu - url-http-file-exists-p vcard-pretty-print w32-focus-frame - w3m-charset-to-coding-system x-focus-frame)) -(maybe-bind '(filladapt-mode - mc-pgp-always-sign mm-w3m-mode-map rmail-enable-mime-composing - rmail-insert-mime-forwarded-message-function - w3m-cid-retrieve-function-alist w3m-current-buffer - w3m-display-inline-images w3m-meta-content-type-charset-regexp - w3m-minor-mode-map)) - -(if (featurep 'xemacs) +(if (string-match "XEmacs" emacs-version) (progn - (maybe-fbind '(ccl-execute-on-string - char-charset charsetp coding-system-get - coding-system-list coding-system-p decode-coding-region - decode-coding-string define-ccl-program delete-overlay - detect-coding-region encode-coding-region - encode-coding-string event-click-count event-end - event-start find-charset-region - find-coding-systems-for-charsets - find-coding-systems-region find-coding-systems-string - get-charset-property mail-abbrevs-setup - mouse-minibuffer-check mouse-movement-p mouse-scroll-subr - overlay-lists pgg-parse-crc24-string posn-point - posn-window read-event set-buffer-multibyte track-mouse - window-edges w3m-region)) - (maybe-bind '(adaptive-fill-first-line-regexp - buffer-display-table buffer-file-coding-system - current-language-environment - default-enable-multibyte-characters - enable-multibyte-characters gnus-agent-expire-current-dirs - language-info-alist mark-active mouse-selection-click-count - mouse-selection-click-count-buffer pgg-parse-crc24 - temporary-file-directory transient-mark-mode))) - (maybe-fbind '(bbdb-complete-name - delete-annotation device-connection dfw-device - events-to-keys font-lock-set-defaults frame-device - glyph-height glyph-width mail-aliases-setup make-annotation - make-event make-glyph make-network-process map-extents - message-xmas-redefine set-extent-property temp-directory - url-generic-parse-url url-insert-file-contents - valid-image-instantiator-format-p - w3-coding-system-for-mime-charset w3-do-setup - w3-prepare-buffer w3-region w3m-region window-pixel-height - window-pixel-width)) - (maybe-bind '(help-echo-owns-message - mail-mode-hook - url-current-object url-package-name url-package-version - w3-meta-charset-content-type-regexp - w3-meta-content-type-charset-regexp))) + (defvar track-mouse nil) + (maybe-fbind '(posn-point + event-start x-popup-menu + facemenu-get-face window-at coordinates-in-window-p + compute-motion x-defined-colors easy-menu-create-keymaps + read-event internal-find-face internal-next-face-id + make-face-internal set-frame-face-alist frame-face-alist + facemenu-add-new-face make-face-x-resource-internal + set-font-size set-font-family posn-window + run-with-idle-timer mouse-minibuffer-check window-edges + event-click-count track-mouse read-event mouse-movement-p + event-end mouse-scroll-subr overlay-lists delete-overlay + set-face-stipple mail-abbrevs-setup char-int + make-char-table set-char-table-range font-create-object + x-color-values widget-make-intangible error-message-string + w3-form-encode-xwfu gnus-mule-get-coding-system + decode-coding-string mail-aliases-setup)) + (maybe-bind '(global-face-data + mark-active transient-mark-mode mouse-selection-click-count + mouse-selection-click-count-buffer buffer-display-table + font-lock-defaults user-full-name user-login-name + gnus-newsgroup-name gnus-article-x-face-too-ugly + mail-mode-hook enable-multibyte-characters + adaptive-fill-first-line-regexp adaptive-fill-regexp))) + (maybe-bind '(mail-mode-hook + enable-multibyte-characters browse-url-browser-function + adaptive-fill-first-line-regexp adaptive-fill-regexp)) + (maybe-fbind '(color-instance-rgb-components + make-color-instance color-instance-name specifier-instance + device-type device-class get-popup-menu-response event-object + x-defined-colors read-color add-submenu set-font-family + font-create-object set-font-size frame-device find-face + set-extent-property make-extent characterp display-error + set-face-doc-string frame-property face-doc-string + button-press-event-p next-command-event + widget-make-intangible glyphp make-glyph set-glyph-image + set-glyph-property event-glyph glyph-property event-point + device-on-window-system-p make-gui-button Info-goto-node + pp-to-string color-name + gnus-mule-get-coding-system decode-coding-string + mail-aliases-setup))) -(defun nnkiboze-score-file (a) - ) +(setq load-path (cons "." load-path)) +(require 'custom) -(defun split-line (&optional arg) +(defun md5 (a &optional b c) ) (provide 'lpath)