[Emacs-diffs] emacs/lisp ChangeLog progmodes/ruby-mode.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/06/17 15:16:22

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : ruby-mode.el 

Log message:
        * progmodes/ruby-mode.el (ruby-parse-partial, ruby-font-lock-keywords): 
Support overloadable negative operators (Bug#3587).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15686&r2=1.15687
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/ruby-mode.el?cvsroot=emacs&r1=1.9&r2=1.10

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15686
retrieving revision 1.15687
diff -u -b -r1.15686 -r1.15687
--- ChangeLog   17 Jun 2009 15:06:25 -0000      1.15686
+++ ChangeLog   17 Jun 2009 15:16:17 -0000      1.15687
@@ -1,3 +1,9 @@
+2009-06-17  Akinori MUSHA  <address@hidden>  (tiny change)
+
+       * progmodes/ruby-mode.el (ruby-parse-partial)
+       (ruby-font-lock-keywords): Support overloadable negative
+       operators (Bug#3587).
+
 2009-06-17  Tiago Saboga  <address@hidden>  (tiny change)
 
        * files.el (save-some-buffers-action-alist): Fix last

Index: progmodes/ruby-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/ruby-mode.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- progmodes/ruby-mode.el      19 Jan 2009 16:58:34 -0000      1.9
+++ progmodes/ruby-mode.el      17 Jun 2009 15:16:22 -0000      1.10
@@ -613,7 +613,7 @@
        ((looking-at ":\\(['\"]\\)")
         (goto-char (match-beginning 1))
         (ruby-forward-string (buffer-substring (match-beginning 1) (match-end 
1)) end))
-       ((looking-at ":\\([-,.+*/%&|^~<>]=?\\|===?\\|<=>\\)")
+       ((looking-at ":\\([-,.+*/%&|^~<>]=?\\|===?\\|<=>\\|![~=]?\\)")
         (goto-char (match-end 0)))
        ((looking-at ":\\([a-zA-Z_][a-zA-Z_0-9]*[!?=]?\\)?")
         (goto-char (match-end 0)))
@@ -1362,7 +1362,7 @@
    '("\\(^\\|[^_]\\)\\b\\([A-Z]+\\(\\w\\|_\\)*\\)"
      2 font-lock-type-face)
    ;; symbols
-   
'("\\(^\\|[^:]\\)\\(:\\(address@hidden|[/%&|^`]\\|\\*\\*?\\|<\\(<\\|=>?\\)?\\|>[>=]?\\|===?\\|=~\\|\\[\\]=?\\|\\(\\w\\|_\\)+\\([!?=]\\|\\b_*\\)\\|#{[^}\n\\\\]*\\(\\\\.[^}\n\\\\]*\\)*}\\)\\)"
+   
'("\\(^\\|[^:]\\)\\(:\\(address@hidden|[/%&|^`]\\|\\*\\*?\\|<\\(<\\|=>?\\)?\\|>[>=]?\\|===?\\|=~\\|![~=]?\\|\\[\\]=?\\|\\(\\w\\|_\\)+\\([!?=]\\|\\b_*\\)\\|#{[^}\n\\\\]*\\(\\\\.[^}\n\\\\]*\\)*}\\)\\)"
      2 font-lock-reference-face)
    ;; expression expansion
    
'("#\\({[^}\n\\\\]*\\(\\\\.[^}\n\\\\]*\\)*}\\|\\(\\$\\|@\\|@@\\)\\(\\w\\|_\\)+\\)"