;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/prop.el

;; with two functions

(defun pload ()
  (interactive)
  (message "%s" (plist-get (symbol-plist #'pload) 'val)) )

(defun psave (num)
  (interactive "nnum: ")
  (plist-put (symbol-plist #'pload) 'val num) )

;; with a single function

(defun load-save (&optional save)
  (interactive "P")
  (let ((plist (symbol-plist #'load-save))
        (prop  'number) )
    (if save
        (let ((val (read-number "new number: ")))
          (plist-put plist prop val)
          (message "stored %d" val) )
      (message "%s" (plist-get plist prop) ))))

(provide 'prop)