Spelling fixes

diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index acc3732fb2ae4f3cc6a3b62c0aaa8123900033e4..279382b6f5ad21e58d826e201e480a2292c182c8 100644 (file)
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -743,7 +743,7 @@
              (#xFE10 . #xFE1F) ;; Vertical Forms
              (#x10100 . #x1013F)       ;; Aegean Numbers
              (#x102E0 . #x102FF)       ;; Coptic Epact Numbers
-             (#x1D000 . #x1D0FF)       ;; Byzanthine Musical Symbols
+             (#x1D000 . #x1D0FF)       ;; Byzantine Musical Symbols
              (#x1D200 . #x1D24F)       ;; Ancient Greek Musical Notation
              (#x1F0A0 . #x1F0FF)       ;; Playing Cards
              (#x1F100 . #x1F1FF)       ;; Enclosed Alphanumeric Suppl

diff --git a/src/ftcrfont.c b/src/ftcrfont.c
index 0cbfd804109bd7a6206903e0c089ec782d5e782a..df3aa596f6b1f3664f781053265b732c35ca977b 100644 (file)
--- a/src/ftcrfont.c
+++ b/src/ftcrfont.c
@@ -34,8 +34,8 @@ along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
 
 /* FTCR font driver.  */
 
-/* The actual structure for ftcr font that can be casted to struct
-   font.  */
+/* The actual structure for FTCR font.  A pointer to this structure
+   can be cast to struct font *.  */
 
 struct ftcrfont_info
 {

diff --git a/src/xdisp.c b/src/xdisp.c
index f0e30900043cdc90e6be82c52d9218539759dbef..7c153302803d6b0a6a2867c32eaea50537cb635f 100644 (file)
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -24618,7 +24618,7 @@ normal_char_ascent_descent (struct font *font, int c, int *ascent, int *descent)
 
 /* A subroutine that computes a reasonable "normal character height"
    for fonts that claim preposterously large vertical dimensions, but
-   whose glyphs are actually reasonably sized.  C is the charcater
+   whose glyphs are actually reasonably sized.  C is the character
    whose metrics to use for those fonts, or -1 for default
    character.  */
 static int
@@ -26761,7 +26761,7 @@ x_produce_glyphs (struct it *it)
             don't let the row ascent and descent values (and the row
             height computed from them) be smaller than the "normal"
             character metrics.  This avoids unpleasant effects
-            whereby lines on display would change their heigh
+            whereby lines on display would change their height
             depending on which characters are shown.  */
          normal_char_ascent_descent (font, -1, &font_ascent, &font_descent);
          it->max_ascent = max (it->max_ascent, font_ascent);

diff --git a/test/automated/help-fns.el b/test/automated/help-fns.el
index 4815ac6825748a2b6287022b268ceedeac5a2aa5..b8772eb84d64cbf3b297c3550cb008e8227f079b 100644 (file)
--- a/test/automated/help-fns.el
+++ b/test/automated/help-fns.el
@@ -37,7 +37,7 @@
 (defun abc\\\[universal-argument\]b\`c\'d\\e\"f (x)
   "A function with a funny name.
 
-\(fn XYYZZY)"
+\(fn XYZZY)"
   x)
 
 (defun defgh\\\[universal-argument\]b\`c\'d\\e\"f (x)
@@ -50,7 +50,7 @@
   (with-current-buffer "*Help*"
     (goto-char (point-min))
     (should (search-forward
-             "(abc\\\\\\[universal-argument\\]b\\`c\\'d\\\\e\\\"f XYYZZY)")))
+             "(abc\\\\\\[universal-argument\\]b\\`c\\'d\\\\e\\\"f XYZZY)")))
   (describe-function 'defgh\\\[universal-argument\]b\`c\'d\\e\"f)
   (with-current-buffer "*Help*"
     (goto-char (point-min))