(or (equal (char-before) ?\{) ;; empty case
(equal (char-before) ?\;)
(equal (char-before) ?\}))
- ;; skip what looks like bus repitition operator {#{
+ ;; skip what looks like bus repetition operator {#{
(not (string-match "^{\\s-*[0-9]+\\s-*{" (buffer-substring p (point)))))))))
(progn
(let ( (pt (point)) (pass 0))
"\n"))
(defun vc-dir-refresh-files (files)
- "Refresh some fies in the *VC-dir* buffer."
+ "Refresh some files in the *VC-dir* buffer."
(let ((def-dir default-directory)
(backend vc-dir-backend))
(vc-set-mode-line-busy-indicator)
;;
;; The vc-keep-workfiles configuration variable is gone. Used only by
;; the RCS and SCCS backends, it was an invitation to shoot self in foot
-;; when set to the (non-default) value nil. The original justication
+;; when set to the (non-default) value nil. The original justification
;; for it (saving disk space) is long obsolete.
;;
;; - The rollback method (implemented by RCS and SCCS only) is gone. See
build_string (fn_gnutls_protocol_get_name
(fn_gnutls_protocol_get_version (state)))));
- /* Cipler name. */
+ /* Cipher name. */
result = nconc2
(result, list2 (intern (":cipher"),
build_string (fn_gnutls_cipher_get_name