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

[Emanuel Berg]

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")

-- 
underground experts united .... http://user.it.uu.se/~embe8573
Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic
                   - so far: 48 Blogomatic articles -