[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-acros.el

[Bill Wohler]

Index: emacs/lisp/mh-e/mh-acros.el
diff -c emacs/lisp/mh-e/mh-acros.el:1.6 emacs/lisp/mh-e/mh-acros.el:1.7
*** emacs/lisp/mh-e/mh-acros.el:1.6     Wed May 18 11:01:20 2005
--- emacs/lisp/mh-e/mh-acros.el Sat May 28 22:04:54 2005
***************
*** 1,6 ****
  ;;; mh-acros.el --- Macros used in MH-E
  
! ;; Copyright (C) 2005 Free Software Foundation, Inc.
  
  ;; Author: Satyaki Das <address@hidden>
  ;; Maintainer: Bill Wohler <address@hidden>
--- 1,6 ----
  ;;; mh-acros.el --- Macros used in MH-E
  
! ;; Copyright (C) 2004 Free Software Foundation, Inc.
  
  ;; Author: Satyaki Das <address@hidden>
  ;; Maintainer: Bill Wohler <address@hidden>
***************
*** 40,45 ****
--- 40,46 ----
  ;;; Code:
  
  (require 'cl)
+ (require 'advice)
  
  ;; The Emacs coding conventions require that the cl package not be required at
  ;; runtime. However, the cl package in versions of Emacs prior to 21.4 left cl
***************
*** 68,75 ****
  
  (defmacro mh-funcall-if-exists (function &rest args)
    "Call FUNCTION with ARGS as parameters if it exists."
!   (if (fboundp function)
!       `(funcall ',function ,@args)))
  
  (defmacro mh-make-local-hook (hook)
    "Make HOOK local if needed.
--- 69,77 ----
  
  (defmacro mh-funcall-if-exists (function &rest args)
    "Call FUNCTION with ARGS as parameters if it exists."
!   (when (fboundp function)
!     `(when (fboundp ',function)
!        (funcall ',function ,@args))))
  
  (defmacro mh-make-local-hook (hook)
    "Make HOOK local if needed.