fix rhtml-mode

Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>

diff --git a/elpa/rhtml-mode-20130422.1311/rhtml-erb.el b/elpa/rhtml-mode-20130422.1311/rhtml-erb.el
index b23281170f4a25ab09a28343fee61f23b0b7cba6..4823cf837871414e8fe17036cb57a70448c48c1c 100644 (file)
--- a/elpa/rhtml-mode-20130422.1311/rhtml-erb.el
+++ b/elpa/rhtml-mode-20130422.1311/rhtml-erb.el
@@ -100,7 +100,7 @@ I don't think this has any restrictions.")
 
 (defun rhtml-erb-delim-type (start-delim)
   "Return `exec', `out', `comment' or nil dependin on the type of delimeter this is."
-  (flet ((match? (regex)
+  (cl-flet ((match? (regex)
                  (eq (string-match regex start-delim) 0)))
     (cond ((match? rhtml-erb-exec-tag-open-re)
            'exec)
@@ -241,7 +241,7 @@ If POINT is specified it will be used instead of (POINT)."
             (throw 'done regions))
           ;; erb tag
           (push (list
-                 (case (char-after (+ tag-start 2))
+                 (cl-case (char-after (+ tag-start 2))
                    (?= 'out) (?# 'comment) (t 'exec))
                  tag-start (point))
                 regions))))))
@@ -274,7 +274,7 @@ If POINT is specified it will be used instead of (POINT)."
 
           ;; erb tag
           (push (list
-                 (case (char-after (+ tag-start 2))
+                 (cl-case (char-after (+ tag-start 2))
                    (?= 'out) (?# 'comment) (t 'exec))
                  tag-start (point))
                 regions))))))
@@ -318,4 +318,4 @@ contains an ERB tag."
   (skip-chars-forward " \t\r\n"))
 
 ;;
-(provide 'rhtml-erb)
\ No newline at end of file
+(provide 'rhtml-erb)

diff --git a/elpa/rhtml-mode-20130422.1311/rhtml-mode.el b/elpa/rhtml-mode-20130422.1311/rhtml-mode.el
index a36ef9ef7bda85f3befdfd81607f47dc858b404d..2880d213c63d99e130acb32676641b58b804d263 100644 (file)
--- a/elpa/rhtml-mode-20130422.1311/rhtml-mode.el
+++ b/elpa/rhtml-mode-20130422.1311/rhtml-mode.el
@@ -81,14 +81,14 @@ will have a dash added. If MODE is `auto' or nil then ERb blocks which are
 followed by a newline will have a dash added while all other blocks will
 have the dash removed."
   (interactive "cDashize mode: s) strip, a) add, x) auto (default)")
-  (let ((real-mode (case mode
+  (let ((real-mode (cl-case mode
                      ((?s strip) 'strip)
                      ((?a add) 'add))))
     (mapc (lambda (i)
             (let ((end (nth 2 i)))
               (save-excursion
                 (goto-char (- end 2))
-                (case (or real-mode
+                (cl-case (or real-mode
                           (if (eq (char-after end) ?\n)
                               'add
                             'strip))

diff --git a/elpa/rhtml-mode-20130422.1311/rhtml-sgml-hacks.el b/elpa/rhtml-mode-20130422.1311/rhtml-sgml-hacks.el
index 77a63a4f21dea1cbf6f61c9cab0514eb050b730f..23f0d14647e01843f30496424b34751df08eee0d 100644 (file)
--- a/elpa/rhtml-mode-20130422.1311/rhtml-sgml-hacks.el
+++ b/elpa/rhtml-mode-20130422.1311/rhtml-sgml-hacks.el
@@ -239,7 +239,7 @@ LCON is the lexical context, if any."
           (save-excursion (goto-char (cdr lcon)) (looking-at "<!--")))
       (setq lcon (cons 'comment (+ (cdr lcon) 2))))
 
-  (case (car lcon)
+  (cl-case (car lcon)
 
     (string
      ;; Go back to previous non-empty line.
@@ -412,7 +412,7 @@ Leave point at the beginning of the tag."
                 ;; /PST
                (point)))
        (goto-char (1+ tag-start))
-       (case (char-after)
+       (cl-case (char-after)
          (?!                           ; declaration
           (setq tag-type 'decl))
          (??                           ; processing-instruction
@@ -519,4 +519,4 @@ If nil, start from a preceding tag at indentation."
 ;;(rhtml-disable-sgml-hacks)
 
 ;;;
-(provide 'rhtml-sgml-hacks)
\ No newline at end of file
+(provide 'rhtml-sgml-hacks)