Changeset 6895 for lang/elisp

Timestamp:

02/19/08 02:09:37 (9 months ago)

Author:

kentaro

Message:

lang/elisp/taskpaper: Fixed not showing mode name correctly

Files:

• lang/elisp/taskpaper/trunk/taskpaper.el (modified) (2 diffs)

lang/elisp/taskpaper/trunk/taskpaper.el

@@ -133 +133 @@
 ;; Taskpaper major mode
 (define-derived-mode taskpaper-mode fundamental-mode "Taskpaper"
-  "Major mode for editing Workflow Process Description Language files"
+  "Major mode to manage tasks easily"
   (interactive)
   (kill-all-local-variables)
+  (setq major-mode 'taskpaper-mode)
+  (setq mode-name "Taskpaper")
   (use-local-map taskpaper-mode-map)
   (set (make-local-variable 'font-lock-defaults) '(taskpaper-font-lock-keywords))
@@ -141 +143 @@
   (run-hooks 'taskpaper-mode-hook))
 
-(add-to-list 'auto-mode-alist '("\\.taskpaper$" . taskpaper-mode))
+(add-to-list 'auto-mode-alist (cons "\\.taskpaper$" 'taskpaper-mode))
 
 ;; Commands