/[emacs]/emacs/lisp/mh-e/mh-acros.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-acros.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by wohler, Sun Aug 22 05:11:27 2004 UTC revision 1.4 by wohler, Wed Aug 25 05:55:39 2004 UTC
# Line 51  Some versions of `cl' produce code for t Line 51  Some versions of `cl' produce code for t
51  \(setf (gethash ...) ...) that uses functions in `cl' at run time.  This macro  \(setf (gethash ...) ...) that uses functions in `cl' at run time.  This macro
52  recognizes that and loads `cl' where appropriate."  recognizes that and loads `cl' where appropriate."
53    (if (eq (car (macroexpand '(setf (gethash foo bar) baz))) 'cl-puthash)    (if (eq (car (macroexpand '(setf (gethash foo bar) baz))) 'cl-puthash)
54        `(progn        `(require 'cl)
          (require 'cl)  
          ;; Autoloads of CL functions go here...  
          (autoload 'cl-puthash "cl")  
          (autoload 'values "cl")  
          (autoload 'copy-tree "cl"))  
55      `(eval-when-compile (require 'cl))))      `(eval-when-compile (require 'cl))))
56    
57  ;;; Macros to generate correct code for different emacs variants  ;;; Macros to generate correct code for different emacs variants
# Line 130  various structure fields. Lookup `defstr Line 125  various structure fields. Lookup `defstr
125                            (list 'nth ,x z)))                            (list 'nth ,x z)))
126         (quote ,struct-name))))         (quote ,struct-name))))
127    
128    (defadvice require (around mh-prefer-el activate)
129      "Modify `require' to load uncompiled MH-E files."
130      (or (featurep (ad-get-arg 0))
131          (and (string-match "^mh-" (symbol-name (ad-get-arg 0)))
132               (load (format "%s.el" (ad-get-arg 0)) t t))
133          ad-do-it))
134    
135  (provide 'mh-acros)  (provide 'mh-acros)
136    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26