Font size problem

I customize all my fonts by loading a file called emacs-faces.el frommy 
init.el file.  I'lll supply this file at the end of the message.

When emacs comes up and I try to highlight a region, the characters 
change size as they shift to the highlight face. If I then go to XEmacs 
Options menu and select Font Size -> 7, all characters become a 
consistent 7pt font. If I then execute Save Options to Init File, the 
following gets added to my custom.el file:

(custom-set-faces
 '(default ((t (:size "7pt" :family "Courier New"))) t)
 '(secondary-selection ((t (:foreground "gray80" :background "navy"))) t)
 '(dired-links-face ((t (:foreground "forest green" :size "7pt" :family 
"Courier New" :italic t))) t)
 '(html-helper-italic-face ((t (:size "7pt" :family "Courier New" 
:italic t))) t)
 '(html-helper-bold-face ((t (:size "7pt" :family "Courier New" :bold 
t))) t)
 '(font-lock-reference-face ((((class color) (background light)) 
(:foreground "dodgerblue3" :size "7pt" :family "Courier New" :bold t))))
 '(font-lock-bold-face ((t (:size "7pt" :family "Courier New" :bold t))) t)
 '(dired-subdir-face ((t (:foreground "navy" :size "7pt" :family 
"Courier New" :bold t))) t)
 '(mh-from-face ((t (:size "7pt" :family "Courier New" :bold t))) t)
 '(html-helper-keyword-face ((t (:foreground "dodgerblue3" :size "7pt" 
:family "Courier New" :bold t))) t)
 '(dired-exec-face ((t (:foreground "dodgerblue4" :size "7pt" :family 
"Courier New" :bold t))) t)
 '(modeline-buffer-id ((t (:foreground "navy" :background "gray" :size 
"7pt":family "Courier New" :bold t))) t)
 '(modeline-mousable ((t (:foreground "navy" :background "gray" :size 
"7pt":family "Courier New" :italic t))) t)
 '(modeline-mousable-minor-mode ((t (:foreground "navy" :background 
"gray":italic t))) t)
 '(font-lock-keyword-face ((((class color) (background light) (type 
mswindows)) (:foreground "dodgerblue3" :size "7pt" :family "Courier New" 
:bold t))))
 '(font-lock-type-face ((((class color) (background light)) (:foreground 
"steelblue":size "7pt" :family "Courier New" :italic t))))
 '(bold ((t (:size "7pt" :family "Courier New" :bold t))) t)
 '(bold-italic ((t (:size "7pt" :family "Courier New" :bold t :italic 
t))) t)
 '(font-lock-italic-face ((t (:size "7pt" :family "Courier New" :italic 
t))) t)
 '(italic ((t (:size "7pt" :family "Courier New" :italic t))) t 
"nnnnnnnnpppppnnnnppp")
 '(font-lock-function-name-face ((((class color) (background light) 
(type mswindows)) (:foreground "navy" :size "7pt" :family "Courier New" 
:bold t))))
 '(modeline ((t (:foreground "navy" :background " gray"))) t))

If I then restart XEmacs, I get the same problem with the font sizes 
changing as I highlight. So, whatever the Options Font Size selection 
does is NOT the same as whatever is placed in the custom.el file.

Here is my emacs-faces.el file:

(make-face 'default)
              (set-face-foreground 'default "black")
              (set-face-background 'default "ghostwhite")
;          (set-face-background-pixmap 'default "~/pixmaps/slate-light.xpm")
          (set-face-font 'default "Courier New:Regular:8::Western")

;(copy-face 'default    'bold)
;                 (make-face-bold 'bold)
;(copy-face 'default    'italic)
;          (make-face-italic 'italic)
;(copy-face 'default    'bold-italic)
;          (make-face-bold-italic 'bold-italic)
;(copy-face 'default    'underline)
;          (set-face-underline-p 'underline t)

(copy-face 'bold    'font-lock-bold-face)
(copy-face 'bold    'font-lock-keyword-face)
              (set-face-foreground 'font-lock-keyword-face "dodgerblue3")
(copy-face 'bold    'font-lock-function-name-face)
              (set-face-foreground 'font-lock-function-name-face "navy")
(copy-face 'italic    'font-lock-italic-face)
(copy-face 'underline    'font-lock-underline-face)
(copy-face 'default    'font-lock-preprocessor-face)
              (set-face-foreground 'font-lock-preprocessor-face "blue3")
(copy-face 'italic    'font-lock-type-face)
(copy-face 'default    'font-lock-string-face)
              (set-face-foreground 'font-lock-string-face "dodgerblue4")
(copy-face 'default    'font-lock-comment-face)
              (set-face-foreground 'font-lock-comment-face "forest green")
(copy-face 'default    'font-lock-doc-string-face)
              (set-face-foreground 'font-lock-doc-string-face "dodgerblue4")
(copy-face 'bold    'font-lock-reference-face)
              (set-face-foreground 'font-lock-reference-face "dodgerblue3")
(copy-face 'default    'font-lock-variable-name-face)
              (set-face-foreground 'font-lock-variable-name-face 
"dodgerblue4")

(copy-face 'default    'isearch)
              (set-face-background 'isearch "paleturquoise")
;          (set-face-background-pixmap 'isearch 
"~/pixmaps/slate-light-turquoise.xpm")

(copy-face 'default    'isearch-lazy-highlight-face)
              (set-face-background 'isearch "azure2")
;          (set-face-background-pixmap 'isearch-lazy-highlight-face 
"~/pixmaps/slate-light-azure.xpm")

(copy-face 'bold    'dired-exec-face)
              (set-face-foreground 'dired-exec-face "dodgerblue4")
(copy-face 'bold    'dired-subdir-face)
              (set-face-foreground 'dired-subdir-face "navy")
(copy-face 'italic    'dired-links-face)
              (set-face-foreground 'dired-links-face "forest green")
(copy-face 'default    'dired-marked-face)
              (set-face-foreground 'dired-marked-face "red")
(copy-face 'default    'dired-header-face)

(copy-face 'default    'message-highlighted-header-contents)
(copy-face 'default    'message-header-contents)

;(copy-face 'default    'modeline)
;              (set-face-background 'modeline "gray70")
;;          (set-face-background-pixmap 'modeline "")

(copy-face 'default    'paren-match)
              (set-face-background 'paren-match "azure2")
;          (set-face-background-pixmap 'paren-match 
"~/pixmaps/slate-light-azure.xpm")
(copy-face 'default    'paren-blink-off)
              (set-face-foreground 'paren-blink-off "ghostwhite")
(copy-face 'default    'paren-mismatch)
              (set-face-background 'paren-mismatch "pink")
;          (set-face-background-pixmap 'paren-mismatch 
"~/pixmaps/slate-light-pink.xpm")

(copy-face 'default    'right-margin)
(copy-face 'default    'left-margin)

(copy-face 'default    'zmacs-region)
              (set-face-background 'zmacs-region "gray80")
          (set-face-foreground 'zmacs-region "black")
;          (set-face-background-pixmap 'zmacs-region 
"~/pixmaps/slate-light-medium-gray.xpm")
(copy-face 'zmacs-region    'primary-selection)
(copy-face 'zmacs-region    'secondary-selection)
              (set-face-background 'secondary-selection "navy")

(copy-face 'default    'highlight)
              (set-face-background 'highlight "darkseagreen2")
;          (set-face-background-pixmap 'highlight 
"~/pixmaps/slate-light-green.xpm")

(copy-face 'bold            'html-helper-bold-face)
(copy-face 'italic            'html-helper-italic-face)
(copy-face 'underline            'html-helper-link-face)
              (set-face-foreground 'html-helper-link-face "blue")
(copy-face 'font-lock-keyword-face    'html-helper-keyword-face)
(copy-face 'font-lock-comment-face    'html-helper-comment-face)
(copy-face 'default            'html-helper-title-face)
              (set-face-foreground 'html-helper-title-face "navy")
(copy-face 'default            'html-helper-header-face)
              (set-face-foreground 'html-helper-header-face "navy")
(copy-face 'font-lock-string-face    'html-helper-string-face)

(copy-face 'bold    'mh-from-face)
(copy-face 'default    'mh-subject-face)
              (set-face-foreground 'mh-subject-face "navy")

(copy-face 'default    'modeline)
              (set-face-foreground 'modeline "navy")
;          (set-face-background-pixmap 'modeline 
"~/pixmaps/slate-light-medium-gray.xpm")
(copy-face 'bold    'modeline-buffer-id)
              (set-face-foreground 'modeline-buffer-id "navy")
;          (set-face-background-pixmap 'modeline-buffer-id 
"~/pixmaps/slate-light-medium-gray.xpm")
(copy-face 'italic    'modeline-mousable)
              (set-face-foreground 'modeline-mousable "navy")
;          (set-face-background-pixmap 'modeline-mousable 
"~/pixmaps/slate-light-medium-gray.xpm")
(copy-face 'modeline    'modeline-mousable-minor-mode)

-- 
Antonio Freixas
[email protected]