mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 06:50:23 -08:00
Code Issues Projects Releases Wiki Activity

; * src/fileio.c (Ffile_newer_than_file_p): Fix wording (bug#73709).

Browse source
This commit is contained in:
Eli Zaretskii 2024-10-13 18:29:34 +03:00
parent b120397868
commit ae75ea6232
2 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/net/dictionary.el
View file

@ -320,7 +320,11 @@ Otherwise, `dictionary-search' displays definitions in a *Dictionary* buffer."
:version "30.1") :version "30.1")
(defface dictionary-word-definition-face (defface dictionary-word-definition-face
'((((supports (:family "DejaVu Serif"))) ;; w32 first, because 'supports' doesn't really tell whether the font
;; family exists, and MS-Windows selects an ugly font as result.
'((((type w32))
(:font "Sans Serif"))
(((supports (:family "DejaVu Serif")))
(:family "DejaVu Serif")) (:family "DejaVu Serif"))
(((type x)) (((type x))
(:font "Sans Serif")) (:font "Sans Serif"))
@ -328,7 +332,7 @@ Otherwise, `dictionary-search' displays definitions in a *Dictionary* buffer."
(:font "default"))) (:font "default")))
"The face that is used for displaying the definition of the word." "The face that is used for displaying the definition of the word."
:group 'dictionary :group 'dictionary
:version "28.1") :version "31.1")
(defface dictionary-word-entry-face (defface dictionary-word-entry-face
'((((type x)) '((((type x))

4
src/fileio.c
View file

@ -3787,8 +3787,8 @@ DEFUN ("unix-sync", Funix_sync, Sunix_sync, 0, 0, "",
DEFUN ("file-newer-than-file-p", Ffile_newer_than_file_p, Sfile_newer_than_file_p, 2, 2, 0, DEFUN ("file-newer-than-file-p", Ffile_newer_than_file_p, Sfile_newer_than_file_p, 2, 2, 0,
doc: /* Return t if file FILE1 is newer than file FILE2. doc: /* Return t if file FILE1 is newer than file FILE2.
If FILE1 does not exist, the answer is nil; If FILE1 does not exist, the return value is nil;
otherwise, if FILE2 does not exist, the answer is t. if FILE2 does not exist, the return value is t.
For existing files, this compares their last-modified times. */) For existing files, this compares their last-modified times. */)
(Lisp_Object file1, Lisp_Object file2) (Lisp_Object file1, Lisp_Object file2)
{ {