/[emacs]/emacs/lisp/emacs-lisp/lucid.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/lucid.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.28 by gerd, Tue Sep 4 12:49:11 2001 UTC revision 1.29 by monnier, Fri Apr 12 03:25:00 2002 UTC
# Line 107  bottom of the buffer stack." Line 107  bottom of the buffer stack."
107                        (list buf)))                        (list buf)))
108                    (buffer-list)))))))                    (buffer-list)))))))
109    
110    (defun device-class (&optional device)
111      "Return the class (color behavior) of DEVICE.
112    This will be one of 'color, 'grayscale, or 'mono.
113    This function exists for compatibility with XEmacs."
114      (cond
115       ((display-color-p device) 'color)
116       ((display-grayscale-p device) 'grayscale)
117       (t 'mono)))
118    
119  (defalias 'find-face 'internal-find-face)  (defalias 'find-face 'internal-find-face)
120  (defalias 'get-face 'internal-get-face)  (defalias 'get-face 'internal-get-face)
121  (defalias 'try-face-font 'internal-try-face-font)  (defalias 'try-face-font 'internal-try-face-font)
122    
123  (defalias 'exec-to-string 'shell-command-to-string)  (defalias 'exec-to-string 'shell-command-to-string)
124    
125    
126    ;; Buffer context
127    
128    (defun buffer-syntactic-context (&optional buffer)
129      "Syntactic context at point in BUFFER.
130    Either of `string', `comment' or `nil'.
131    This is an XEmacs compatibility function."
132      (with-current-buffer (or buffer (current-buffer))
133        (let ((state (syntax-ppss (point))))
134          (cond
135           ((nth 3 state) 'string)
136           ((nth 4 state) 'comment)))))
137    
138    
139    (defun buffer-syntactic-context-depth (&optional buffer)
140      "Syntactic parenthesis depth at point in BUFFER.
141    This is an XEmacs compatibility function."
142      (with-current-buffer (or buffer (current-buffer))
143        (nth 0 (syntax-ppss (point)))))
144    
145    
146    ;; Extents
147  (defun make-extent (beg end &optional buffer)  (defun make-extent (beg end &optional buffer)
148    (make-overlay beg end buffer))    (make-overlay beg end buffer))
149    

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26