Re: hijack C function, use it transparently with in-between layer

[Barry Margolin]

In article <868tyjnghn.fsf@student.uu.se>,
 Emanuel Berg <embe8573@student.uu.se> wrote:

> The truth is down there!
> 
> (defvar old-message)
> (fset 'old-message (symbol-function #'message))
> 
> (defun message (format-string &rest args)
>   (unless (member format-string
>                   '(
>                     "It was just another system of control."
>                     "Mark set"
>                     ))
>       (apply `(old-message ,format-string ,@args) )))
> 
> ;; test:
> ;;
> ;;  (message "%s - %s" "1" "2")
> ;;  (message "Break on thru to the other side.")
> ;;  (message "It was just another system of control.")
> ;;  (message "Mark set")

Shouldn't you do this using advice?

-- 
Barry Margolin, barmar@alum.mit.edu
Arlington, MA
*** PLEASE post questions in newsgroups, not directly to me ***