+/** Return a plist of symbols that has non-NULL property PROP. If
+ PROP is Mnil, return a plist of all symbols. Values of the plist
+ is NULL. */
+
+MPlist *
+msymbol__list (MSymbol prop)
+{
+ MPlist *plist = mplist ();
+ int i;
+ MSymbol sym;
+
+ for (i = 0; i < SYMBOL_TABLE_SIZE; i++)
+ for (sym = symbol_table[i]; sym; sym = sym->next)
+ if (prop == Mnil || msymbol_get (sym, prop))
+ mplist_push (plist, sym, NULL);
+ return plist;
+}
+