Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-folder.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 49a24b4fd526
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
438 (defun vm-get-folder-type (&optional file start end) 438 (defun vm-get-folder-type (&optional file start end)
439 "Return a symbol indicating the folder type of the current buffer. 439 "Return a symbol indicating the folder type of the current buffer.
440 This function works by examining the beginning of a folder. 440 This function works by examining the beginning of a folder.
441 If optional arg FILE is present the type of FILE is returned instead. 441 If optional arg FILE is present the type of FILE is returned instead.
442 If optional second and third arg START and END are provided, 442 If optional second and third arg START and END are provided,
443 vm-get-folder-type will examine the the text between those buffer 443 vm-get-folder-type will examine the text between those buffer
444 positions. START and END default to 1 and (buffer-size) + 1. 444 positions. START and END default to 1 and (buffer-size) + 1.
445 445
446 Returns 446 Returns
447 nil if folder has no type (empty) 447 nil if folder has no type (empty)
448 unknown if the type is not known to VM 448 unknown if the type is not known to VM