From: Nick Roberts <nickrob@snap.net.nz>
Date: Sun, 15 May 2005 23:57:15 +0000 (+0000)
Subject: (left-fringe-p): New function.
X-Git-Tag: ttn-vms-21-2-B4~264
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dfb5b6c2fd74515ccbc933a71faf687464e5d00e;p=emacs.git

(left-fringe-p): New function.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 8d6c3d6cabf..8eda9e542c2 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -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