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." |