comparison lisp/dired.el @ 59996:aac0a33f5772

Change release version from 21.4 to 22.1 throughout. Change development version from 21.3.50 to 22.0.50.
author Kim F. Storm <storm@cua.dk>
date Wed, 09 Feb 2005 15:50:47 +0000
parents aa04ceecde25
children 031a5ac39eb7 3ebd9bdb4fe5
comparison
equal deleted inserted replaced
59995:8f4938738427 59996:aac0a33f5772
289 289
290 (defface dired-header 290 (defface dired-header
291 '((t (:inherit font-lock-type-face))) 291 '((t (:inherit font-lock-type-face)))
292 "Face used for directory headers." 292 "Face used for directory headers."
293 :group 'dired-faces 293 :group 'dired-faces
294 :version "21.4") 294 :version "22.1")
295 (defvar dired-header-face 'dired-header 295 (defvar dired-header-face 'dired-header
296 "Face name used for directory headers.") 296 "Face name used for directory headers.")
297 297
298 (defface dired-mark 298 (defface dired-mark
299 '((t (:inherit font-lock-constant-face))) 299 '((t (:inherit font-lock-constant-face)))
300 "Face used for dired marks." 300 "Face used for dired marks."
301 :group 'dired-faces 301 :group 'dired-faces
302 :version "21.4") 302 :version "22.1")
303 (defvar dired-mark-face 'dired-mark 303 (defvar dired-mark-face 'dired-mark
304 "Face name used for dired marks.") 304 "Face name used for dired marks.")
305 305
306 (defface dired-marked 306 (defface dired-marked
307 '((t (:inherit font-lock-warning-face))) 307 '((t (:inherit font-lock-warning-face)))
308 "Face used for marked files." 308 "Face used for marked files."
309 :group 'dired-faces 309 :group 'dired-faces
310 :version "21.4") 310 :version "22.1")
311 (defvar dired-marked-face 'dired-marked 311 (defvar dired-marked-face 'dired-marked
312 "Face name used for marked files.") 312 "Face name used for marked files.")
313 313
314 (defface dired-flagged 314 (defface dired-flagged
315 '((t (:inherit font-lock-warning-face))) 315 '((t (:inherit font-lock-warning-face)))
316 "Face used for flagged files." 316 "Face used for flagged files."
317 :group 'dired-faces 317 :group 'dired-faces
318 :version "21.4") 318 :version "22.1")
319 (defvar dired-flagged-face 'dired-flagged 319 (defvar dired-flagged-face 'dired-flagged
320 "Face name used for flagged files.") 320 "Face name used for flagged files.")
321 321
322 (defface dired-warning 322 (defface dired-warning
323 '((t (:inherit font-lock-comment-face))) 323 '((t (:inherit font-lock-comment-face)))
324 "Face used to highlight a part of a buffer that needs user attention." 324 "Face used to highlight a part of a buffer that needs user attention."
325 :group 'dired-faces 325 :group 'dired-faces
326 :version "21.4") 326 :version "22.1")
327 (defvar dired-warning-face 'dired-warning 327 (defvar dired-warning-face 'dired-warning
328 "Face name used for a part of a buffer that needs user attention.") 328 "Face name used for a part of a buffer that needs user attention.")
329 329
330 (defface dired-directory 330 (defface dired-directory
331 '((t (:inherit font-lock-function-name-face))) 331 '((t (:inherit font-lock-function-name-face)))
332 "Face used for subdirectories." 332 "Face used for subdirectories."
333 :group 'dired-faces 333 :group 'dired-faces
334 :version "21.4") 334 :version "22.1")
335 (defvar dired-directory-face 'dired-directory 335 (defvar dired-directory-face 'dired-directory
336 "Face name used for subdirectories.") 336 "Face name used for subdirectories.")
337 337
338 (defface dired-symlink 338 (defface dired-symlink
339 '((t (:inherit font-lock-keyword-face))) 339 '((t (:inherit font-lock-keyword-face)))
340 "Face used for symbolic links." 340 "Face used for symbolic links."
341 :group 'dired-faces 341 :group 'dired-faces
342 :version "21.4") 342 :version "22.1")
343 (defvar dired-symlink-face 'dired-symlink 343 (defvar dired-symlink-face 'dired-symlink
344 "Face name used for symbolic links.") 344 "Face name used for symbolic links.")
345 345
346 (defface dired-ignored 346 (defface dired-ignored
347 '((t (:inherit font-lock-string-face))) 347 '((t (:inherit font-lock-string-face)))
348 "Face used for files suffixed with `completion-ignored-extensions'." 348 "Face used for files suffixed with `completion-ignored-extensions'."
349 :group 'dired-faces 349 :group 'dired-faces
350 :version "21.4") 350 :version "22.1")
351 (defvar dired-ignored-face 'dired-ignored 351 (defvar dired-ignored-face 'dired-ignored
352 "Face name used for files suffixed with `completion-ignored-extensions'.") 352 "Face name used for files suffixed with `completion-ignored-extensions'.")
353 353
354 (defvar dired-font-lock-keywords 354 (defvar dired-font-lock-keywords
355 (list 355 (list