[q2c 01/12] SET: Warn for more obsolete subcommands.

[Ben Pfaff]

---
 src/language/utilities/set.q |    4 ++++
 1 files changed, 4 insertions(+), 0 deletions(-)

diff --git a/src/language/utilities/set.q b/src/language/utilities/set.q
index bb52fe3..ea040cb 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)
-- 
1.7.2.5