Mercurial > hg > xemacs-beta

comparison lisp/prim/files.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 8d2a9b52c682
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
1298 (while result 1298 (while result
1299 (let ((key (car (car result))) 1299 (let ((key (car (car result)))
1300 (val (cdr (car result)))) 1300 (val (cdr (car result))))
1301 (cond ((eq key 'mode) 1301 (cond ((eq key 'mode)
1302 (setq mode-p t) 1302 (setq mode-p t)
1303 (funcall (intern (concat (downcase (symbol-name val)) 1303 (and enable-local-variables
1304 "-mode")))) 1304 (funcall (intern (concat (downcase (symbol-name val))
1305 "-mode")))))
1305 (set-any-p 1306 (set-any-p
1306 (hack-one-local-variable key val)) 1307 (hack-one-local-variable key val))
1307 (t 1308 (t
1308 nil))) 1309 nil)))
1309 (setq result (cdr result))) 1310 (setq result (cdr result)))
1947 and `kept-new-versions', which tells how many newest versions to keep. 1948 and `kept-new-versions', which tells how many newest versions to keep.
1948 Defaults are 2 old versions and 2 new. 1949 Defaults are 2 old versions and 2 new.
1949 `dired-kept-versions' controls dired's clean-directory (.) command. 1950 `dired-kept-versions' controls dired's clean-directory (.) command.
1950 If `delete-old-versions' is nil, system will query user 1951 If `delete-old-versions' is nil, system will query user
1951 before trimming versions. Otherwise it does it silently." 1952 before trimming versions. Otherwise it does it silently."
1952 (interactive "p") 1953 (interactive "_p")
1953 (let ((modp (buffer-modified-p)) 1954 (let ((modp (buffer-modified-p))
1954 (large (> (buffer-size) 50000)) 1955 (large (> (buffer-size) 50000))
1955 (make-backup-files (or (and make-backup-files (not (eq args 0))) 1956 (make-backup-files (or (and make-backup-files (not (eq args 0)))
1956 (memq args '(16 64))))) 1957 (memq args '(16 64)))))
1957 (and modp (memq args '(16 64)) (setq buffer-backed-up nil)) 1958 (and modp (memq args '(16 64)) (setq buffer-backed-up nil))