Commit 8ee72956 authored by David Byers's avatar David Byers
Browse files

Added missing functions, added mship-edit.el to Makefile

parent 47baba2f
2000-01-11 David Byers <davby@ida.liu.se>
* flags.el (kom-save-options): Was removed by mistake.
* compatibility.el (plist-member): New function.
* distribution-Makefile (SOURCES): Added mship-edit.el
Tue Jan 11 00:37:57 2000 David Byers <davby@sen2.ida.liu.se> Tue Jan 11 00:37:57 2000 David Byers <davby@sen2.ida.liu.se>
* Release av 0.46-BETA-E * Release av 0.46-BETA-E
......
...@@ -339,6 +339,17 @@ With optional argument N, returns Nth-to-last link (default 1)." ...@@ -339,6 +339,17 @@ With optional argument N, returns Nth-to-last link (default 1)."
(while (consp (cdr x)) (setq x (cdr x))) (while (consp (cdr x)) (setq x (cdr x)))
x)) x))
(lyskom-provide-subst plist-member (plist prop)
"Return non-nil if PLIST has the property PROP.
PLIST is a property list, which is a list of the form
\(PROP1 VALUE1 PROP2 VALUE2 ...\). PROP is a symbol.
Unlike `plist-get', this allows you to distinguish between a missing
property and a property with the value nil."
(while (and plist (not (eq (car plist) prop)))
(setq plist (cdr (cdr plist))))
(and plist t))
;;; ================================================================ ;;; ================================================================
;;; Faces ;;; Faces
......
...@@ -74,6 +74,7 @@ SOURCES = $(LANGUAGE-EL) \ ...@@ -74,6 +74,7 @@ SOURCES = $(LANGUAGE-EL) \
view-text.el \ view-text.el \
async.el \ async.el \
completing-read.el \ completing-read.el \
mship-edit.el \
prioritize.el \ prioritize.el \
flags.el \ flags.el \
messages.el \ messages.el \
......
...@@ -47,6 +47,16 @@ ...@@ -47,6 +47,16 @@
"When we have read all options this is turned non-nil." "When we have read all options this is turned non-nil."
local) local)
(def-kom-command kom-save-options ()
"Save options that have been set somewhere."
(interactive)
(lyskom-save-options (or lyskom-buffer
(current-buffer))
(lyskom-get-string 'saving-settings)
(lyskom-get-string 'saving-settings-done)
(lyskom-get-string 'could-not-save-options)))
;;;============================================================ ;;;============================================================
;;; lyskom-save-options ;;; lyskom-save-options
;;; ;;;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment