Mercurial > hg > xemacs-beta

comparison lisp/packages/man.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 49a24b4fd526
children 4103f0995bd7
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
14 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 14 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 ;; General Public License for more details. 16 ;; General Public License for more details.
17 17
18 ;; You should have received a copy of the GNU General Public License 18 ;; You should have received a copy of the GNU General Public License
19 ;; along with XEmacs; see the file COPYING. If not, write to the Free 19 ;; along with XEmacs; see the file COPYING. If not, write to the
20 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 20 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 ;; Boston, MA 02111-1307, USA.
21 22
22 ;; Mostly rewritten by Alan K. Stebbens <aks@hub.ucsb.edu> 11-apr-90. 23 ;; Mostly rewritten by Alan K. Stebbens <aks@hub.ucsb.edu> 11-apr-90.
23 ;; 24 ;;
24 ;; o Match multiple man pages using TOPIC as a simple pattern 25 ;; o Match multiple man pages using TOPIC as a simple pattern
25 ;; o Search unformatted pages, even when formatted matches are found 26 ;; o Search unformatted pages, even when formatted matches are found
604 ;; man pages with long lines are buggy! 605 ;; man pages with long lines are buggy!
605 ;; This looks slightly better if they only 606 ;; This looks slightly better if they only
606 ;; overran by a couple of chars. 607 ;; overran by a couple of chars.
607 (setq truncate-lines t) 608 (setq truncate-lines t)
608 ;; turn off horizontal scrollbars in this buffer 609 ;; turn off horizontal scrollbars in this buffer
609 (set-specifier scrollbar-height (cons (current-buffer) 0)) 610 (when (featurep 'scrollbar)
611 (set-specifier scrollbar-height (cons (current-buffer) 0)))
610 (run-hooks 'Manual-mode-hook)) 612 (run-hooks 'Manual-mode-hook))
611 613
612 (defun Manual-last-page () 614 (defun Manual-last-page ()
613 (interactive) 615 (interactive)
614 (while (or (not (get-buffer (car (or Manual-page-history 616 (while (or (not (get-buffer (car (or Manual-page-history