Mercurial > emacs

comparison lisp/help.el @ 42254:ffef7ba0b65d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(view-order-manuals, view-emacs-news, describe-copying) (describe-distribution, describe-project): Use view-file.
author Richard M. Stallman <rms@gnu.org>
date Sat, 22 Dec 2001 01:27:19 +0000
parents e511f555920c
children 253eec84f7d3
comparison
equal deleted inserted replaced
42253:ac66be721ee2 42254:ffef7ba0b65d
248 ;;; `User' help functions 248 ;;; `User' help functions
249 249
250 (defun describe-distribution () 250 (defun describe-distribution ()
251 "Display info on how to obtain the latest version of GNU Emacs." 251 "Display info on how to obtain the latest version of GNU Emacs."
252 (interactive) 252 (interactive)
253 (find-file-read-only 253 (view-find (expand-file-name "DISTRIB" data-directory)))
254 (expand-file-name "DISTRIB" data-directory)))
255 254
256 (defun describe-copying () 255 (defun describe-copying ()
257 "Display info on how you may redistribute copies of GNU Emacs." 256 "Display info on how you may redistribute copies of GNU Emacs."
258 (interactive) 257 (interactive)
259 (find-file-read-only 258 (view-file (expand-file-name "COPYING" data-directory))
260 (expand-file-name "COPYING" data-directory))
261 (goto-char (point-min))) 259 (goto-char (point-min)))
262 260
263 (defun describe-project () 261 (defun describe-project ()
264 "Display info on the GNU project." 262 "Display info on the GNU project."
265 (interactive) 263 (interactive)
266 (find-file-read-only 264 (view-file (expand-file-name "THE-GNU-PROJECT" data-directory))
267 (expand-file-name "THE-GNU-PROJECT" data-directory))
268 (goto-char (point-min))) 265 (goto-char (point-min)))
269 266
270 (defun describe-no-warranty () 267 (defun describe-no-warranty ()
271 "Display info on all the kinds of warranty Emacs does NOT have." 268 "Display info on all the kinds of warranty Emacs does NOT have."
272 (interactive) 269 (interactive)
305 (nth (- arg 2) 302 (nth (- arg 2)
306 (nreverse (directory-files data-directory 303 (nreverse (directory-files data-directory
307 nil "^ONEWS\\.[0-9]+$" 304 nil "^ONEWS\\.[0-9]+$"
308 nil))))))) 305 nil)))))))
309 (if file 306 (if file
310 (find-file-read-only (expand-file-name file data-directory)) 307 (view-file (expand-file-name file data-directory))
311 (error "No such old news")))) 308 (error "No such old news"))))
312 309
313 (defun view-order-manuals () 310 (defun view-order-manuals ()
314 "Display the Emacs ORDERS file." 311 "Display the Emacs ORDERS file."
315 (interactive) 312 (interactive)
316 (find-file-read-only (expand-file-name "ORDERS" data-directory)) 313 (view-file (expand-file-name "ORDERS" data-directory))
317 (goto-address)) 314 (goto-address))
318 315
319 (defun view-emacs-FAQ () 316 (defun view-emacs-FAQ ()
320 "Display the Emacs Frequently Asked Questions (FAQ) file." 317 "Display the Emacs Frequently Asked Questions (FAQ) file."
321 (interactive) 318 (interactive)