[前][次][番号順一覧][スレッド一覧]

ruby-changes:31043

From: knu <ko1@a...>
Date: Thu, 3 Oct 2013 00:25:40 +0900 (JST)
Subject: [ruby-changes:31043] knu:r43122 (trunk): * misc/ruby-additional.el: Properly quote the body. An unquoted

knu	2013-10-03 00:25:34 +0900 (Thu, 03 Oct 2013)

  New Revision: 43122

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=43122

  Log:
    * misc/ruby-additional.el: Properly quote the body.  An unquoted
      body given to eval-after-load is evaluated immediately!

  Modified files:
    trunk/ChangeLog
    trunk/misc/ruby-additional.el
Index: ChangeLog
===================================================================
--- ChangeLog	(revision 43121)
+++ ChangeLog	(revision 43122)
@@ -1,3 +1,8 @@ https://github.com/ruby/ruby/blob/trunk/ChangeLog#L1
+Thu Oct  3 00:17:15 2013  Akinori MUSHA  <knu@i...>
+
+	* misc/ruby-additional.el: Properly quote the body.  An unquoted
+	  body given to eval-after-load is evaluated immediately!
+
 Wed Oct  2 21:38:30 2013  Yusuke Endoh  <mame@t...>
 
 	* ext/socket/ifaddr.c (rsock_getifaddrs): fix possible memory leak.
Index: misc/ruby-additional.el
===================================================================
--- misc/ruby-additional.el	(revision 43121)
+++ misc/ruby-additional.el	(revision 43122)
@@ -1,100 +1,100 @@ https://github.com/ruby/ruby/blob/trunk/misc/ruby-additional.el#L1
 ;; missing functions in Emacs 24.
 
-(eval-after-load "\\(\\`\\|/\\)ruby-mode\\.elc?\\(\\.gz\\)?\\'"
-  (progn
-    (define-key ruby-mode-map "\C-c\C-e" 'ruby-insert-end)
-    (define-key ruby-mode-map "\C-c{" 'ruby-toggle-block)
-
-    (defun ruby-insert-end ()
-      (interactive)
-      (if (eq (char-syntax (char-before)) ?w)
-	  (insert " "))
-      (insert "end")
-      (save-excursion
-	(if (eq (char-syntax (char-after)) ?w)
-	    (insert " "))
-	(ruby-indent-line t)
-	(end-of-line)))
-
-    (defun ruby-brace-to-do-end ()
-      (when (looking-at "{")
-	(let ((orig (point)) (end (progn (ruby-forward-sexp) (point))))
-	  (when (eq (char-before) ?\})
-	    (delete-char -1)
-	    (if (eq (char-syntax (char-before)) ?w)
-		(insert " "))
-	    (insert "end")
-	    (if (eq (char-syntax (char-after)) ?w)
-		(insert " "))
-	    (goto-char orig)
-	    (delete-char 1)
-	    (if (eq (char-syntax (char-before)) ?w)
-		(insert " "))
-	    (insert "do")
-	    (when (looking-at "\\sw\\||")
-	      (insert " ")
-	      (backward-char))
-	    t))))
-
-    (defun ruby-do-end-to-brace ()
-      (when (and (or (bolp)
-		     (not (memq (char-syntax (char-before)) '(?w ?_))))
-		 (looking-at "\\<do\\(\\s \\|$\\)"))
-	(let ((orig (point)) (end (progn (ruby-forward-sexp) (point))))
-	  (backward-char 3)
-	  (when (looking-at ruby-block-end-re)
-	    (delete-char 3)
-	    (insert "}")
-	    (goto-char orig)
-	    (delete-char 2)
-	    (insert "{")
-	    (if (looking-at "\\s +|")
-		(delete-char (- (match-end 0) (match-beginning 0) 1)))
-	    t))))
-
-    (defun ruby-toggle-block ()
-      (interactive)
-      (or (ruby-brace-to-do-end)
-	  (ruby-do-end-to-brace)))
+(eval-after-load 'ruby-mode
+  '(progn
+     (define-key ruby-mode-map "\C-c\C-e" 'ruby-insert-end)
+     (define-key ruby-mode-map "\C-c{" 'ruby-toggle-block)
+
+     (defun ruby-insert-end ()
+       (interactive)
+       (if (eq (char-syntax (char-before)) ?w)
+           (insert " "))
+       (insert "end")
+       (save-excursion
+         (if (eq (char-syntax (char-after)) ?w)
+             (insert " "))
+         (ruby-indent-line t)
+         (end-of-line)))
+
+     (defun ruby-brace-to-do-end ()
+       (when (looking-at "{")
+         (let ((orig (point)) (end (progn (ruby-forward-sexp) (point))))
+           (when (eq (char-before) ?\})
+             (delete-char -1)
+             (if (eq (char-syntax (char-before)) ?w)
+                 (insert " "))
+             (insert "end")
+             (if (eq (char-syntax (char-after)) ?w)
+                 (insert " "))
+             (goto-char orig)
+             (delete-char 1)
+             (if (eq (char-syntax (char-before)) ?w)
+                 (insert " "))
+             (insert "do")
+             (when (looking-at "\\sw\\||")
+               (insert " ")
+               (backward-char))
+             t))))
+
+     (defun ruby-do-end-to-brace ()
+       (when (and (or (bolp)
+                      (not (memq (char-syntax (char-before)) '(?w ?_))))
+                  (looking-at "\\<do\\(\\s \\|$\\)"))
+         (let ((orig (point)) (end (progn (ruby-forward-sexp) (point))))
+           (backward-char 3)
+           (when (looking-at ruby-block-end-re)
+             (delete-char 3)
+             (insert "}")
+             (goto-char orig)
+             (delete-char 2)
+             (insert "{")
+             (if (looking-at "\\s +|")
+                 (delete-char (- (match-end 0) (match-beginning 0) 1)))
+             t))))
+
+     (defun ruby-toggle-block ()
+       (interactive)
+       (or (ruby-brace-to-do-end)
+           (ruby-do-end-to-brace)))
 
-    (defun ruby-mode-set-encoding ()
-      "Insert a magic comment header with the proper encoding always.
+     (defun ruby-mode-set-encoding ()
+       "Insert a magic comment header with the proper encoding always.
 Now encoding needs to be set always explicitly actually."
-      (save-excursion
-	(let ((coding-system))
-	  (widen)
-	  (goto-char (point-min))
-	  (if (re-search-forward "[^\0-\177]" nil t)
-	      (progn
-		(goto-char (point-min))
-		(setq coding-system
-                      (or coding-system-for-write
-                          buffer-file-coding-system))
-		(if coding-system
-		    (setq coding-system
-			  (or (coding-system-get coding-system 'mime-charset)
-			      (coding-system-change-eol-conversion coding-system nil))))
-		(setq coding-system
-		      (if coding-system
-			  (symbol-name
-			   (or (and ruby-use-encoding-map
-				    (cdr (assq coding-system ruby-encoding-map)))
-			       coding-system))
-			"ascii-8bit")))
-	    (setq coding-system "us-ascii"))
-	  (if (looking-at "^#!") (beginning-of-line 2))
-	  (cond ((looking-at "\\s *#.*-\*-\\s *\\(en\\)?coding\\s *:\\s *\\([-a-z0-9_]*\\)\\s *\\(;\\|-\*-\\)")
-		 (unless (string= (match-string 2) coding-system)
-		   (goto-char (match-beginning 2))
-		   (delete-region (point) (match-end 2))
-		   (and (looking-at "-\*-")
-			(let ((n (skip-chars-backward " ")))
-			  (cond ((= n 0) (insert "  ") (backward-char))
-				((= n -1) (insert " "))
-				((forward-char)))))
-		   (insert coding-system)))
-		((looking-at "\\s *#.*coding\\s *[:=]"))
-		(t (when ruby-insert-encoding-magic-comment
-		     (insert "# -*- coding: " coding-system " -*-\n")))))))
+       (save-excursion
+         (let ((coding-system))
+           (widen)
+           (goto-char (point-min))
+           (if (re-search-forward "[^\0-\177]" nil t)
+               (progn
+                 (goto-char (point-min))
+                 (setq coding-system
+                       (or coding-system-for-write
+                           buffer-file-coding-system))
+                 (if coding-system
+                     (setq coding-system
+                           (or (coding-system-get coding-system 'mime-charset)
+                               (coding-system-change-eol-conversion coding-system nil))))
+                 (setq coding-system
+                       (if coding-system
+                           (symbol-name
+                            (or (and ruby-use-encoding-map
+                                     (cdr (assq coding-system ruby-encoding-map)))
+                                coding-system))
+                         "ascii-8bit")))
+             (setq coding-system "us-ascii"))
+           (if (looking-at "^#!") (beginning-of-line 2))
+           (cond ((looking-at "\\s *#.*-\*-\\s *\\(en\\)?coding\\s *:\\s *\\([-a-z0-9_]*\\)\\s *\\(;\\|-\*-\\)")
+                  (unless (string= (match-string 2) coding-system)
+                    (goto-char (match-beginning 2))
+                    (delete-region (point) (match-end 2))
+                    (and (looking-at "-\*-")
+                         (let ((n (skip-chars-backward " ")))
+                           (cond ((= n 0) (insert "  ") (backward-char))
+                                 ((= n -1) (insert " "))
+                                 ((forward-char)))))
+                    (insert coding-system)))
+                 ((looking-at "\\s *#.*coding\\s *[:=]"))
+                 (t (when ruby-insert-encoding-magic-comment
+                      (insert "# -*- coding: " coding-system " -*-\n")))))))
 
-    ))
+     ))

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/

[前][次][番号順一覧][スレッド一覧]