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