Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 05:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

(make-face-italic, make-face-bold): Don't bind f2 here.

Browse source 
(make-face-bold-internal, make-face-italic-internal): Bind f2 here.
(make-face-bold-italic-internal, make-face-italic-internal)
(make-face-bold-internal): New arg `font'.  Callers changed.
This commit is contained in:
Richard M. Stallman 1994-07-01 17:31:42 +00:00
parent 96c3ed60ae
commit 4b3203d970
1 changed files with 18 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
lisp/faces.el
View file

@ -518,7 +518,7 @@ If NOERROR is non-nil, return nil on failure."
'(bold italic) '(bold))
t)
(let ((ofont (face-font face frame))
font f2)
font)
(if (null frame)
(let ((frames (frame-list)))
;; Make this face bold in global-face-data.
@ -535,16 +535,17 @@ If NOERROR is non-nil, return nil on failure."
(setq font (or font
(face-font 'default frame)
(cdr (assq 'font (frame-parameters frame)))))
(make-face-bold-internal face frame))
(make-face-bold-internal face frame font))
(or (not (equal ofont (face-font face)))
(and (not noerror)
(error "No bold version of %S" font))))))
(defun make-face-bold-internal (face frame)
(or (and (setq f2 (x-make-font-bold font))
(internal-try-face-font face f2 frame))
(and (setq f2 (x-make-font-demibold font))
(internal-try-face-font face f2 frame))))
(defun make-face-bold-internal (face frame font)
(let (f2)
(or (and (setq f2 (x-make-font-bold font))
(internal-try-face-font face f2 frame))
(and (setq f2 (x-make-font-demibold font))
(internal-try-face-font face f2 frame)))))
(defun make-face-italic (face &optional frame noerror)
"Make the font of the given face be italic, if possible.
@ -555,7 +556,7 @@ If NOERROR is non-nil, return nil on failure."
'(bold italic) '(italic))
t)
(let ((ofont (face-font face frame))
font f2)
font)
(if (null frame)
(let ((frames (frame-list)))
;; Make this face italic in global-face-data.
@ -572,16 +573,17 @@ If NOERROR is non-nil, return nil on failure."
(setq font (or font
(face-font 'default frame)
(cdr (assq 'font (frame-parameters frame)))))
(make-face-italic-internal face frame))
(make-face-italic-internal face frame font))
(or (not (equal ofont (face-font face)))
(and (not noerror)
(error "No italic version of %S" font))))))
(defun make-face-italic-internal (face frame)
(or (and (setq f2 (x-make-font-italic font))
(internal-try-face-font face f2 frame))
(and (setq f2 (x-make-font-oblique font))
(internal-try-face-font face f2 frame))))
(defun make-face-italic-internal (face frame font)
(let (f2)
(or (and (setq f2 (x-make-font-italic font))
(internal-try-face-font face f2 frame))
(and (setq f2 (x-make-font-oblique font))
(internal-try-face-font face f2 frame)))))
(defun make-face-bold-italic (face &optional frame noerror)
"Make the font of the given face be bold and italic, if possible.
@ -607,12 +609,12 @@ If NOERROR is non-nil, return nil on failure."
(setq font (or font
(face-font 'default frame)
(cdr (assq 'font (frame-parameters frame)))))
(make-face-bold-italic-internal face frame))
(make-face-bold-italic-internal face frame font))
(or (not (equal ofont (face-font face)))
(and (not noerror)
(error "No bold italic version of %S" font))))))
(defun make-face-bold-italic-internal (face frame)
(defun make-face-bold-italic-internal (face frame font)
(let (f2 f3)
(or (and (setq f2 (x-make-font-italic font))
(not (equal font f2))