Mercurial > emacs
comparison lisp/subr.el @ 62380:602fb25a831a
(left-fringe-p): New function.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sun, 15 May 2005 23:57:15 +0000 |
| parents | 4560134d21fa |
| children | a25a4c4602a4 8b66fddd72c5 |
comparison
equal
deleted
inserted
replaced
| 62379:0e9b634f10d7 | 62380:602fb25a831a |
|---|---|
| 2292 Any list whose car is `frame-configuration' is assumed to be a frame | 2292 Any list whose car is `frame-configuration' is assumed to be a frame |
| 2293 configuration." | 2293 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 |
| 2300 \(recursively) a function or special form. This does not include | 2303 \(recursively) a function or special form. This does not include |
| 2301 macros." | 2304 macros." |