Mercurial > emacs

comparison lisp/man.el @ 12009:29adc0df831d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Man-default-man-entry): Return result.
author Karl Heuer <kwzh@gnu.org>
date Tue, 30 May 1995 05:07:52 +0000
parents 9a069c7526b1
children 0d5bb768982e
comparison
equal deleted inserted replaced
12008:637671248a31 12009:29adc0df831d
1 ;;; man.el --- browse UNIX manual pages 1 ;;; man.el --- browse UNIX manual pages
2 2
3 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. 3 ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
4 4
5 ;; Author: Barry A. Warsaw <bwarsaw@cen.com> 5 ;; Author: Barry A. Warsaw <bwarsaw@cen.com>
6 ;; Last-Modified: $Date: 1995/02/03 12:07:37 $ 6 ;; Last-Modified: $Date: 1995/05/29 13:20:51 $
7 ;; Version: $Revision: 1.61 $ 7 ;; Version: $Revision: 1.62 $
8 ;; Keywords: help 8 ;; Keywords: help
9 ;; Adapted-By: ESR, pot 9 ;; Adapted-By: ESR, pot
10 10
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 12
485 (if (looking-at 485 (if (looking-at
486 (concat "[ \t]*([ \t]*\\(" 486 (concat "[ \t]*([ \t]*\\("
487 Man-section-regexp "\\)[ \t]*)")) 487 Man-section-regexp "\\)[ \t]*)"))
488 (format "(%s)" (Man-match-substring 1)))))) 488 (format "(%s)" (Man-match-substring 1))))))
489 (set-text-properties 0 (length result) nil result) 489 (set-text-properties 0 (length result) nil result)
490 )))) 490 result))))
491 491
492 492
493 ;; ====================================================================== 493 ;; ======================================================================
494 ;; Top level command and background process sentinel 494 ;; Top level command and background process sentinel
495 495