misc/emacs/rabbit-mode.el in rabbit-2.2.1 vs misc/emacs/rabbit-mode.el in rabbit-3.0.0

@@ -1,11 +1,10 @@
 ;;; -*- mode: Emacs-Lisp; indent-tabs-mode: nil -*-
 ;;; rabbit-mode.el
 ;;  Emacs major mode for Rabbit
-;;; Copyright (c) 2006 - 2008 Atsushi TAKEDA <[e-mail]>
-;;; Copyright (c) 2009 Kouhei Sutou <[e-mail]>
-;;; $Id$
+;;; Copyright (c) 2006-2008 Atsushi TAKEDA <[e-mail]>
+;;; Copyright (c) 2009-2019 Kouhei Sutou <[e-mail]>
 
 (require 'cl)
 (require 'rd-mode)
 
 (defvar rabbit-mode-hook nil
@@ -71,11 +70,16 @@
 (defvar rabbit-default-image-size-unit
   "relative")
 
 (defvar rabbit-image-size-unit-history nil)
 
+;;;###autoload
+(add-to-list 'auto-mode-alist '("\\.rab\\'" . rabbit-mode))
+
+;;;###autoload
 (define-derived-mode rabbit-mode rd-mode "Rabbit"
+  "Major mode for editing Rabbit slide in RD."
   (setq comment-start "#")
   (make-local-variable 'font-lock-defaults)
   (setq font-lock-defaults '((rabbit-font-lock-keywords) t nil))
   (make-local-variable 'font-lock-keywords)
   (setq font-lock-keywords rabbit-font-lock-keywords)
@@ -316,12 +320,12 @@
   (and string (not (string-equal string ""))))
 
 (defun rabbit-join-without-empty-string (strings separator)
   (let ((result "")
         (not-empty-strings (rabbit-filter
-                            '(lambda (string)
-                               (not (rabbit-not-empty-string string)))
+                            (lambda (string)
+                              (not (rabbit-not-empty-string string)))
                             strings)))
     (if (null not-empty-strings)
         ""
       (dolist (string (cdr not-empty-strings)
                       (concat (car not-empty-strings) result))
@@ -343,11 +347,11 @@
 (defun rabbit-read-size-value (unit)
   "return strings that specify image size."
   (let ((prefix (if (string-equal unit "pixel")
                     ""
                   (concat unit "_"))))
-    (mapcar '(lambda (key)
-               (rabbit-read-block-property (concat prefix key)))
+    (mapcar (lambda (key)
+              (rabbit-read-block-property (concat prefix key)))
             '("width" "height"))))
 
 (defun rabbit-fancall-with-current-point (func)
   (multiple-value-bind (beg end)
       (rabbit-current-slide-point)