karino2 · March 6, 2012 07:39
diff --git a/my-save.l b/my-save.l
 (defun my-save()
  (interactive)
  (save-excursion
    (goto-char 0)
    (search-forward "import_data_hidden")
    (search-forward "value=")
    (search-forward "\"")
    (forward-char)
    (let ((pos (point)))
      (search-forward "\"")
      (delete-region pos (point))
      (insert (substitute-string (get-clipboard-data) "&" "&amp;")))))
	(defun my-save()
	(interactive)
	(save-excursion
	(goto-char 0)
	(search-forward "import_data_hidden")
	(search-forward "value=")
	(search-forward "\"")
	(forward-char)
	(let ((pos (point)))
	(search-forward "\"")
	(delete-region pos (point))
	(insert (substitute-string (get-clipboard-data) "&" "&")))))