(left-fringe-p): New function.

This commit is contained in:
Nick Roberts 2005-05-15 23:57:15 +00:00
parent 0f182ca265
commit dfb5b6c2fd

View file

@ -2294,6 +2294,9 @@ configuration."
(and (consp object)
(eq (car object) 'frame-configuration)))
(defsubst left-fringe-p ()
(equal (car (window-fringes)) 0))
(defun functionp (object)
"Non-nil if OBJECT is any kind of function or a special form.
Also non-nil if OBJECT is a symbol and its function definition is