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

View File

@ -393,7 +393,7 @@ val pp_hum : Format.formatter -> t -> unit [@@ocaml.toplevel_printer]
* add manual pages
* show more information in the prompt:
* 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
* show intermediate key sequence
* better support for light colors terminals

View File

@ -166,7 +166,7 @@ Alternatively, if you have installed utop via opam, you can add this
to your `~/.emacs`:
```elisp
;; Add the opam lisp dir to the emacs load path
;; Add the opam lisp dir to the Emacs load path
(add-to-list
'load-path
(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"))))
(setenv (car var) (cadr var)))
;; Update the emacs path
;; Update the Emacs path
(setq exec-path (append (parse-colon-path (getenv "PATH"))
(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"
(getenv "OCAML_TOPLEVEL_PATH")))
@ -252,7 +252,7 @@ you want.
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
correctly:
@ -334,7 +334,7 @@ following fields to the executable stanza:
The `(modes ...)` field is to tell dune to install the byte-code
version of the executable, as currently native toplevels are not fully
suported.
supported.
[dune]: https://github.com/ocaml/dune

View File

@ -108,11 +108,11 @@ This hook is only run if exiting actually kills the buffer."
(defface utop-stdout
nil
"The face used to highlight messages comming from stdout.")
"The face used to highlight messages coming from stdout.")
(defface utop-stderr
nil
"The face used to highlight messages comming from stderr.")
"The face used to highlight messages coming from stderr.")
(defface utop-frozen
'((t (:bold t)))
@ -231,7 +231,7 @@ backend")
(featurep 'company)))
;; +-----------------------------------------------------------------+
;; | Compability with different ocaml major modes |
;; | Compatibility with different ocaml major modes |
;; +-----------------------------------------------------------------+
(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)
"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."
(interactive)
(with-current-buffer utop-buffer-name
@ -939,7 +939,7 @@ defaults to 0."
(utop-send-string (format "exit:%d\n" (or exit-code 0))))))
(defun utop-sentinel (_process _msg)
"Callback for process' state change."
"Callback for process's state change."
(let ((buffer (get-buffer utop-buffer-name)))
;; Do nothing if the buffer does not exist anymore
(when buffer