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

src/ChangeLog

+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>
 
 	* Release av 0.46-BETA-E

src/compatibility.el

@@ -339,6 +339,17 @@ With optional argument N, returns Nth-to-last link (default 1)."
     (while (consp (cdr x)) (setq x (cdr 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
 

src/distribution-Makefile

@@ -74,6 +74,7 @@ SOURCES	 = 	$(LANGUAGE-EL) \
 		view-text.el \
 		async.el \
 		completing-read.el \
+		mship-edit.el \
 		prioritize.el \
 		flags.el \
 		messages.el \

src/flags.el

@@ -47,6 +47,16 @@
   "When we have read all options this is turned non-nil."
   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
 ;;;