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

Fix some typos

This commit is contained in:
Bozhidar Batsov 2022-07-19 10:58:39 +03:00 committed by Rudi Grinberg
parent 2bee980a9d
commit 6658ca4c21
3 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
CHANGES.md
View File

@ -393,7 +393,7 @@ val pp_hum : Format.formatter -> t -> unit [@@ocaml.toplevel_printer]
* add manual pages * add manual pages
* show more information in the prompt: * show more information in the prompt:
* show the current value of the macro counter * show the current value of the macro counter
* show the nnumber of key pressed since the beginning of a macro * show the number of key pressed since the beginning of a macro
when recording a macro when recording a macro
* show intermediate key sequence * show intermediate key sequence
* better support for light colors terminals * better support for light colors terminals

10
README.md
View File

@ -166,7 +166,7 @@ Alternatively, if you have installed utop via opam, you can add this
to your `~/.emacs`: to your `~/.emacs`:
```elisp ```elisp
;; Add the opam lisp dir to the emacs load path ;; Add the opam lisp dir to the Emacs load path
(add-to-list (add-to-list
'load-path 'load-path
(replace-regexp-in-string (replace-regexp-in-string
@ -200,11 +200,11 @@ copy&paste this to your `~/.emacs`:
(dolist (var (car (read-from-string (shell-command-to-string "opam config env --sexp")))) (dolist (var (car (read-from-string (shell-command-to-string "opam config env --sexp"))))
(setenv (car var) (cadr var))) (setenv (car var) (cadr var)))
;; Update the emacs path ;; Update the Emacs path
(setq exec-path (append (parse-colon-path (getenv "PATH")) (setq exec-path (append (parse-colon-path (getenv "PATH"))
(list exec-directory))) (list exec-directory)))
;; Update the emacs load path ;; Update the Emacs load path
(add-to-list 'load-path (expand-file-name "../../share/emacs/site-lisp" (add-to-list 'load-path (expand-file-name "../../share/emacs/site-lisp"
(getenv "OCAML_TOPLEVEL_PATH"))) (getenv "OCAML_TOPLEVEL_PATH")))
@ -252,7 +252,7 @@ you want.
Common error Common error
------------ ------------
If you get this error when running utop in a terminal or in emacs this If you get this error when running utop in a terminal or in Emacs this
means that the environment variable `CAML_LD_LIBRARY_PATH` is not set means that the environment variable `CAML_LD_LIBRARY_PATH` is not set
correctly: correctly:
@ -334,7 +334,7 @@ following fields to the executable stanza:
The `(modes ...)` field is to tell dune to install the byte-code The `(modes ...)` field is to tell dune to install the byte-code
version of the executable, as currently native toplevels are not fully version of the executable, as currently native toplevels are not fully
suported. supported.
[dune]: https://github.com/ocaml/dune [dune]: https://github.com/ocaml/dune

10
src/top/utop.el
View File

@ -108,11 +108,11 @@ This hook is only run if exiting actually kills the buffer."
(defface utop-stdout (defface utop-stdout
nil nil
"The face used to highlight messages comming from stdout.") "The face used to highlight messages coming from stdout.")
(defface utop-stderr (defface utop-stderr
nil nil
"The face used to highlight messages comming from stderr.") "The face used to highlight messages coming from stderr.")
(defface utop-frozen (defface utop-frozen
'((t (:bold t))) '((t (:bold t)))
@ -231,7 +231,7 @@ backend")
(featurep 'company))) (featurep 'company)))
;; +-----------------------------------------------------------------+ ;; +-----------------------------------------------------------------+
;; | Compability with different ocaml major modes | ;; | Compatibility with different ocaml major modes |
;; +-----------------------------------------------------------------+ ;; +-----------------------------------------------------------------+
(defun utop-compat-resolve (choices) (defun utop-compat-resolve (choices)
@ -931,7 +931,7 @@ With prefix argument EOB-P, positions cursor at end of buffer."
(defun utop-exit (&optional exit-code) (defun utop-exit (&optional exit-code)
"Try to gracefully exit utop. "Try to gracefully exit utop.
EXIT-CODE is the exit code that shoud be returned by utop. It EXIT-CODE is the exit code that should be returned by utop. It
defaults to 0." defaults to 0."
(interactive) (interactive)
(with-current-buffer utop-buffer-name (with-current-buffer utop-buffer-name
@ -939,7 +939,7 @@ defaults to 0."
(utop-send-string (format "exit:%d\n" (or exit-code 0)))))) (utop-send-string (format "exit:%d\n" (or exit-code 0))))))
(defun utop-sentinel (_process _msg) (defun utop-sentinel (_process _msg)
"Callback for process' state change." "Callback for process's state change."
(let ((buffer (get-buffer utop-buffer-name))) (let ((buffer (get-buffer utop-buffer-name)))
;; Do nothing if the buffer does not exist anymore ;; Do nothing if the buffer does not exist anymore
(when buffer (when buffer