Function: abbrev-table-empty-p

abbrev-table-empty-p is a byte-compiled function defined in abbrev.el.gz.

Signature

(abbrev-table-empty-p OBJECT &optional IGNORE-SYSTEM)

Documentation

Return nil if there are no abbrev symbols in OBJECT.

If IGNORE-SYSTEM is non-nil, system definitions are ignored.

Source Code

;; Defined in /usr/src/emacs/lisp/abbrev.el.gz
(defun abbrev-table-empty-p (object &optional ignore-system)
  "Return nil if there are no abbrev symbols in OBJECT.
If IGNORE-SYSTEM is non-nil, system definitions are ignored."
  (unless (abbrev-table-p object)
    (error "Non abbrev table object"))
  (not (catch 'some
	 (obarray-map (lambda (abbrev)
                        (unless (or (zerop (length (symbol-name abbrev)))
                                    (and ignore-system
                                         (abbrev-get abbrev :system)))
                          (throw 'some t)))
                      object))))