Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing some Emacs startup warnings.

master
Yuri Albuquerque 2017-08-18 12:42:45 -03:00
parent 12b20f30f5
commit dd457317ad
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
emacs/caml.el
View File

@ -866,24 +866,24 @@ possible."
(if (eq major-mode 'caml-mode)
(let (skip bol beg end)
(save-excursion
(set-buffer
(if (boundp 'compilation-last-buffer)
compilation-last-buffer ;Emacs 19
"*compilation*")) ;Emacs 18
(save-excursion
(goto-char (window-point (get-buffer-window (current-buffer))))
(if (looking-at caml-error-chars-regexp)
(setq beg
(caml-string-to-int
(buffer-substring (match-beginning 1) (match-end 1)))
end
(caml-string-to-int
(buffer-substring (match-beginning 2) (match-end 2)))))
(next-line)
(beginning-of-line)
(if (and (looking-at "Warning")
caml-next-error-skip-warnings-flag)
(setq skip 't))))
(with-current-buffer
(if (boundp 'compilation-last-buffer)
compilation-last-buffer ;Emacs 19
"*compilation*") ;Emacs 18
(save-excursion
(goto-char (window-point (get-buffer-window (current-buffer))))
(if (looking-at caml-error-chars-regexp)
(setq beg
(caml-string-to-int
(buffer-substring (match-beginning 1) (match-end 1)))
end
(caml-string-to-int
(buffer-substring (match-beginning 2) (match-end 2)))))
(forward-line 1)
(beginning-of-line)
(if (and (looking-at "Warning")
caml-next-error-skip-warnings-flag)
(setq skip 't)))))
(cond
(skip (next-error))
(beg