; put different signatures in buffer

(defvar sig-wks-file "~/.Sig.wks")
(defvar sig-wks-external-file "~/.Sig.wks.external")

(defun sig-wks (&optional f)
  (interactive "P")
  (or f (setq f sig-wks-file)) ; if no arg, default to sig-wks-file
  (or (stringp f) (setq f sig-wks-external-file)) ; if nonstring arg, external
  (save-excursion
    (goto-char (point-max))
    (if (search-backward "\n-- \n" nil t)
	(progn
	  (forward-char 5)
	  (delete-region (point) (point-max)))
      (insert-string "\n-- \n"))
    (insert-file-contents
     (expand-file-name f))) )

(defun sig-wks-external ()
  (interactive)
  (sig-wks sig-wks-external-file) )