Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/sml-mode/sml-mode.el
ViewVC logotype

Diff of /sml/trunk/sml-mode/sml-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1696, Mon Nov 15 04:11:27 2004 UTC revision 1697, Mon Nov 15 22:36:09 2004 UTC
# Line 193  Line 193 
193          (list ;; (cons "\\" (make-char 'japanese-jisx0208 38 75))          (list ;; (cons "\\" (make-char 'japanese-jisx0208 38 75))
194                (cons "->" (make-char 'japanese-jisx0208 34 42))                (cons "->" (make-char 'japanese-jisx0208 34 42))
195                ;; (cons "<-" (make-char 'japanese-jisx0208 34 43))                ;; (cons "<-" (make-char 'japanese-jisx0208 34 43))
196                  (cons ">=" (make-char 'japanese-jisx0208 33 102))
197                  (cons "<=" (make-char 'japanese-jisx0208 33 101))
198                (cons "=>" (make-char 'japanese-jisx0208 34 77))))                (cons "=>" (make-char 'japanese-jisx0208 34 77))))
199     ;; Or a unicode font.     ;; Or a unicode font.
200     (and (fboundp 'decode-char)     (and (fboundp 'decode-char)
# Line 200  Line 202 
202          (list ;; (cons "\\" (decode-char 'ucs 955))          (list ;; (cons "\\" (decode-char 'ucs 955))
203                (cons "->" (decode-char 'ucs 8594))                (cons "->" (decode-char 'ucs 8594))
204                ;; (cons "<-" (decode-char 'ucs 8592))                ;; (cons "<-" (decode-char 'ucs 8592))
205                  (cons ">=" (decode-char 'ucs 8805))
206                  (cons "<=" (decode-char 'ucs 8804))
207                (cons "=>" (decode-char 'ucs 8658))                (cons "=>" (decode-char 'ucs 8658))
208                ;; (cons "::" (decode-char 'ucs 8759))                ;; (cons "::" (decode-char 'ucs 8759))
209                ))))                ))))

Legend:
Removed from v.1696  
changed lines
  Added in v.1697

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0