Mercurial > emacs

comparison lisp/help.el @ 71487:e5f156e5a1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(view-emacs-news): Declare `res' in the right let* form.
author Kim F. Storm <storm@cua.dk>
date Sun, 25 Jun 2006 22:41:40 +0000
parents e31e18bcd667
children 12d2238c31b3 138ce2701550
comparison
equal deleted inserted replaced
71486:0b855b098dcd 71487:e5f156e5a1b6
344 (setq res (cons (match-string-no-properties 1) res))))) 344 (setq res (cons (match-string-no-properties 1) res)))))
345 (cons "NEWS" 345 (cons "NEWS"
346 (directory-files data-directory nil 346 (directory-files data-directory nil
347 "^NEWS\\.[0-9][-0-9]*$" nil))) 347 "^NEWS\\.[0-9][-0-9]*$" nil)))
348 (sort (delete-dups res) (lambda (a b) (string< b a))))) 348 (sort (delete-dups res) (lambda (a b) (string< b a)))))
349 (current (car all-versions)) 349 (current (car all-versions)))
350 res)
351 (setq version (completing-read 350 (setq version (completing-read
352 (format "Read NEWS for the version (default %s): " current) 351 (format "Read NEWS for the version (default %s): " current)
353 all-versions nil nil nil nil current)) 352 all-versions nil nil nil nil current))
354 (if (integerp (string-to-number version)) 353 (if (integerp (string-to-number version))
355 (setq version (string-to-number version)) 354 (setq version (string-to-number version))
367 (string-to-number version) 366 (string-to-number version)
368 version)) 367 version))
369 (file (cond 368 (file (cond
370 ((>= vn emacs-major-version) "NEWS") 369 ((>= vn emacs-major-version) "NEWS")
371 ((< vn 18) "NEWS.1-17") 370 ((< vn 18) "NEWS.1-17")
372 (t (format "NEWS.%d" vn))))) 371 (t (format "NEWS.%d" vn))))
372 res)
373 (view-file (expand-file-name file data-directory)) 373 (view-file (expand-file-name file data-directory))
374 (widen) 374 (widen)
375 (goto-char (point-min)) 375 (goto-char (point-min))
376 (when (stringp version) 376 (when (stringp version)
377 (when (re-search-forward 377 (when (re-search-forward