Mercurial > emacs

comparison lisp/man.el @ 10642:0e6b71f2ebad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* man.el (Man-default-man-entry): Remove text properties from result.
author Francesco Potortì <pot@gnu.org>
date Fri, 03 Feb 1995 12:07:37 +0000
parents c69ddd9fa3a6
children 9a069c7526b1
comparison
equal deleted inserted replaced
10641:88afc23d1474 10642:0e6b71f2ebad
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: 1994/11/09 12:38:31 $ 6 ;; Last-Modified: $Date: 1994/11/22 04:37:43 $
7 ;; Version: $Revision: 1.59 $ 7 ;; Version: $Revision: 1.60 $
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
478 (buffer-substring 478 (buffer-substring
479 (point) 479 (point)
480 (progn (skip-chars-forward "-a-zA-Z0-9_.") (point)))) 480 (progn (skip-chars-forward "-a-zA-Z0-9_.") (point))))
481 481
482 ;; If looking at something like ioctl(2) or brc(1M), include the 482 ;; If looking at something like ioctl(2) or brc(1M), include the
483 ;; section number in the returned value. 483 ;; section number in the returned value. Remove text properties.
484 (concat 484 (let ((result (concat
485 default-title 485 default-title
486 (if (looking-at 486 (if (looking-at
487 (concat "[ \t]*([ \t]*\\(" Man-section-regexp "\\)[ \t]*)")) 487 (concat "[ \t]*([ \t]*\\("
488 (format "(%s)" (Man-match-substring 1))) 488 Man-section-regexp "\\)[ \t]*)"))
489 )))) 489 (format "(%s)" (Man-match-substring 1))))))
490 (set-text-properties 0 (length result) nil result)
491 ))))
490 492
491 493
492 ;; ====================================================================== 494 ;; ======================================================================
493 ;; Top level command and background process sentinel 495 ;; Top level command and background process sentinel
494 496