haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove byte compilation warnings 

Ignore-this: 628353be0d3e1d11d84fdc89f9a7690d

darcs-hash:20120303194751-33bd9-5bb0c7c9e5e1312d87cd764c9cb29f48faa892aa
This commit is contained in:
wojciech.meyer 2012-03-03 20:47:51 +01:00
parent bd61b32e8a
commit b09cf8da02
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/top/utop.el
View File

@ -403,8 +403,8 @@ to add the newline character if it is not accepted).")
;; Highlight errors ;; Highlight errors
(let ((offsets (split-string argument "," t))) (let ((offsets (split-string argument "," t)))
(while offsets (while offsets
(let ((a (string-to-int (car offsets))) (let ((a (string-to-number (car offsets)))
(b (string-to-int (car (cdr offsets))))) (b (string-to-number (car (cdr offsets)))))
(add-text-properties (+ utop-prompt-max a) (+ utop-prompt-max b) '(face utop-error)) (add-text-properties (+ utop-prompt-max a) (+ utop-prompt-max b) '(face utop-error))
(setq offsets (cdr (cdr offsets)))))) (setq offsets (cdr (cdr offsets))))))
;; Make everything read-only ;; Make everything read-only