Skip to content
Snippets Groups Projects
Commit 6287ef55 authored by oscarf's avatar oscarf
Browse files

(eudc-save-options): Put the provide statement at the

beginning of the file to avoid infinite recursion
parents 53af5e2d 13c190f7
No related branches found
No related tags found
No related merge requests found
......@@ -1166,6 +1166,8 @@
(throw 'found t)))))))
(if (eq (point-min) (point-max))
(princ ";; This file was automatically generated by eudc.el\n\n"))
(if (not provide-p)
(princ "(provide 'eudc-options-file)\n"))
(if (not (bolp))
(princ "\n"))
(princ "(eudc-set-server ")
......@@ -1176,8 +1178,6 @@
(princ "(setq eudc-server-hotlist '")
(prin1 eudc-server-hotlist)
(princ ")\n")
(if (not provide-p)
(princ "(provide 'eudc-options-file)\n"))
(save-buffer))))
(defun eudc-insert-record-at-point-into-bbdb ()
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment