provided now. I suppose the later is faster.")
(defvar mhspool-list-directory-switches '("-R")
- "*Switches for mhspool-list-folders-using-ls to pass to `ls' for gettting file lists.
+ "*Switches for mhspool-list-folders-using-ls to pass to `ls' for getting file lists.
One entry should appear on one line. You may need to add `-1' option.")
\f
(let ((string (substring string 0)) ;Copy string.
(len (length string))
(idx 0))
- ;; Replace all occurence of FROM with TO.
+ ;; Replace all occurrences of FROM with TO.
(while (< idx len)
(if (= (aref string idx) from)
(aset string idx to))