Add own elisp-demos snippets

extend-elisp-demos.el

(defun advised:elisp-demos--search (orig-fun symbol)
  (cl-letf* ((orig-insert-file-contents (symbol-function 'insert-file-contents))
             ((symbol-function 'insert-file-contents)
              (lambda (filename &optional visit beg end replace)
                (apply orig-insert-file-contents filename visit beg end replace nil)
                (apply orig-insert-file-contents "/private/tmp/mine.org" visit beg end replace nil))))
    (funcall orig-fun symbol)))

(advice-add 'elisp-demos--search :around #'advised:elisp-demos--search)