Mercurial > emacs
comparison lisp/generic.el @ 34814:ce9ed5ad8fa2
(generic-read-type): Undo last change, inline into
`generic-mode' and then remove.
(generic-mode): Inline generic-read-type.
(define-generic-mode): Push the symbol name rather than the symbol
onto generic-mode-list.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 21 Dec 2000 23:25:57 +0000 |
| parents | ddeab24202fc |
| children | 5eb6597319ec |
comparison
equal
deleted
inserted
replaced
| 34813:e112f39ea5b6 | 34814:ce9ed5ad8fa2 |
|---|---|
| 165 :group 'generic | 165 :group 'generic |
| 166 :type 'regexp | 166 :type 'regexp |
| 167 ) | 167 ) |
| 168 | 168 |
| 169 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 169 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 170 ;; Inline functions | |
| 171 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 172 | |
| 173 (defsubst generic-read-type () | |
| 174 (completing-read | |
| 175 "Generic Type: " | |
| 176 (mapcar (lambda (elt) (list (symbol-name (car elt)))) | |
| 177 nil t)) | |
| 178 | |
| 179 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 180 ;; Functions | 170 ;; Functions |
| 181 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 171 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 182 | 172 |
| 183 ;;;###autoload | 173 ;;;###autoload |
| 184 (defun define-generic-mode (name comment-list keyword-list font-lock-list | 174 (defun define-generic-mode (name comment-list keyword-list font-lock-list |
| 214 | 204 |
| 215 See the file generic-x.el for some examples of `define-generic-mode'." | 205 See the file generic-x.el for some examples of `define-generic-mode'." |
| 216 | 206 |
| 217 ;; Add a new entry | 207 ;; Add a new entry |
| 218 (unless (assq name generic-mode-list) | 208 (unless (assq name generic-mode-list) |
| 219 (push (list name) generic-mode-list)) | 209 (push (list (symbol-name name)) generic-mode-list)) |
| 220 | 210 |
| 221 ;; Add it to auto-mode-alist | 211 ;; Add it to auto-mode-alist |
| 222 (dolist (re auto-mode-list) | 212 (dolist (re auto-mode-list) |
| 223 (add-to-list 'auto-mode-alist (cons re name))) | 213 (add-to-list 'auto-mode-alist (cons re name))) |
| 224 | 214 |
| 273 comment characters, keywords, and the like.) | 263 comment characters, keywords, and the like.) |
| 274 | 264 |
| 275 To define a generic-mode, use the function `define-generic-mode'. | 265 To define a generic-mode, use the function `define-generic-mode'. |
| 276 Some generic modes are defined in `generic-x.el'." | 266 Some generic modes are defined in `generic-x.el'." |
| 277 (interactive | 267 (interactive |
| 278 (list (generic-read-type))) | 268 (list (completing-read "Generic Type: " generic-mode-list nil t))) |
| 279 (funcall (intern type))) | 269 (funcall (intern type))) |
| 280 | 270 |
| 281 ;;; Comment Functionality | 271 ;;; Comment Functionality |
| 282 (defun generic-mode-set-comments (comment-list) | 272 (defun generic-mode-set-comments (comment-list) |
| 283 "Set up comment functionality for generic mode." | 273 "Set up comment functionality for generic mode." |