diff options
| author | Nick Roberts | 2005-05-15 23:57:15 +0000 |
|---|---|---|
| committer | Nick Roberts | 2005-05-15 23:57:15 +0000 |
| commit | dfb5b6c2fd74515ccbc933a71faf687464e5d00e (patch) | |
| tree | 1d9c72a822fcb315ff81e05d6c54a73f152c10a7 | |
| parent | 0f182ca265918952f39d888ee3e2c3a3aa406608 (diff) | |
| download | emacs-dfb5b6c2fd74515ccbc933a71faf687464e5d00e.tar.gz emacs-dfb5b6c2fd74515ccbc933a71faf687464e5d00e.zip | |
(left-fringe-p): New function.
| -rw-r--r-- | lisp/subr.el | 3 |
1 files changed, 3 insertions, 0 deletions
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." | |||
| 2294 | (and (consp object) | 2294 | (and (consp object) |
| 2295 | (eq (car object) 'frame-configuration))) | 2295 | (eq (car object) 'frame-configuration))) |
| 2296 | 2296 | ||
| 2297 | (defsubst left-fringe-p () | ||
| 2298 | (equal (car (window-fringes)) 0)) | ||
| 2299 | |||
| 2297 | (defun functionp (object) | 2300 | (defun functionp (object) |
| 2298 | "Non-nil if OBJECT is any kind of function or a special form. | 2301 | "Non-nil if OBJECT is any kind of function or a special form. |
| 2299 | Also non-nil if OBJECT is a symbol and its function definition is | 2302 | Also non-nil if OBJECT is a symbol and its function definition is |