Re: Undo defalias

[Gregory Heytings]

> Somehow `message' ended aliased to `ignore':
>
> C-h f message
>
> message is an alias for ‘ignore’.
> ...
>
> To repair this damage (without restarting Emacs) usually I would go to 
> the definition of `message' and evaluate it, but this function is 
> defined in C.
>
> How could I bind back `message' to its original function definition?

(defmacro undefalias (symbol)
  `(progn
     (fset ,symbol (cadr (get ,symbol 'function-history)))
     (put ,symbol 'function-history (cddr (get ,symbol 'function-history)))))