:type 'regexp
)
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Inline functions
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defsubst generic-read-type ()
- (completing-read
- "Generic Type: "
- generic-mode-list
- nil t))
-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Functions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Add a new entry
(unless (assq name generic-mode-list)
- (push (list name) generic-mode-list))
+ (push (list (symbol-name name)) generic-mode-list))
;; Add it to auto-mode-alist
(dolist (re auto-mode-list)
To define a generic-mode, use the function `define-generic-mode'.
Some generic modes are defined in `generic-x.el'."
(interactive
- (list (generic-read-type)))
+ (list (completing-read "Generic Type: " generic-mode-list nil t)))
(funcall (intern type)))
;;; Comment Functionality