From: Ben Pfaff <blp@cs.stanford.edu>
Date: Sat, 5 Nov 2011 19:44:27 +0000 (-0700)
Subject: SET: Warn for more obsolete subcommands.
X-Git-Tag: v0.7.9~112
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d09ead64248e9047c27558050074d4dde3308ff5;p=pspp-builds.git

SET: Warn for more obsolete subcommands.
---

diff --git a/src/language/utilities/set.q b/src/language/utilities/set.q
index bb52fe34..ea040cb5 100644
--- a/src/language/utilities/set.q
+++ b/src/language/utilities/set.q
@@ -178,8 +178,12 @@ cmd_set (struct lexer *lexer, struct dataset *ds)
     msg (SW, _("%s is obsolete."), "BLOCK");
   if (cmd.sbc_boxstring)
     msg (SW, _("%s is obsolete."), "BOXSTRING");
+  if (cmd.sbc_cpi)
+    msg (SW, _("%s is obsolete."), "CPI");
   if (cmd.sbc_histogram)
     msg (SW, _("%s is obsolete."), "HISTOGRAM");
+  if (cmd.sbc_lpi)
+    msg (SW, _("%s is obsolete."), "LPI");
   if (cmd.sbc_menus)
     msg (SW, _("%s is obsolete."), "MENUS");
   if (cmd.sbc_xsort)