aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThien-Thi Nguyen1998-09-18 09:41:31 +0000
committerThien-Thi Nguyen1998-09-18 09:41:31 +0000
commit115db33eb5c6c085401dbf7f6bccd14db7058e1d (patch)
tree50a1a6a0126552cfefa75f77ab19175dee22f5cd
parent938121302cf47cfbfde4e22f202cb8ebc2012e6e (diff)
downloademacs-115db33eb5c6c085401dbf7f6bccd14db7058e1d.tar.gz
emacs-115db33eb5c6c085401dbf7f6bccd14db7058e1d.zip
*** empty log message ***
-rw-r--r--lisp/progmodes/hideshow.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index d811e7d50b8..4a241880eb7 100644
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -5,7 +5,7 @@
5;; Author: Thien-Thi Nguyen <ttn@netcom.com> 5;; Author: Thien-Thi Nguyen <ttn@netcom.com>
6;; Dan Nicolaescu <done@ece.arizona.edu> 6;; Dan Nicolaescu <done@ece.arizona.edu>
7;; Keywords: C C++ java lisp tools editing comments blocks hiding outlines 7;; Keywords: C C++ java lisp tools editing comments blocks hiding outlines
8;; Maintainer-Version: 4.21 8;; Maintainer-Version: 4.22
9;; Time-of-Day-Author-Most-Likely-to-be-Recalcitrant: early morning 9;; Time-of-Day-Author-Most-Likely-to-be-Recalcitrant: early morning
10 10
11;; This file is part of GNU Emacs. 11;; This file is part of GNU Emacs.
@@ -90,6 +90,7 @@
90;; qhslali@aom.ericsson.se Lars Lindberg 90;; qhslali@aom.ericsson.se Lars Lindberg
91;; sheff@edcsgw2.cr.usgs.gov Keith Sheffield 91;; sheff@edcsgw2.cr.usgs.gov Keith Sheffield
92;; ware@cis.ohio-state.edu Pete Ware 92;; ware@cis.ohio-state.edu Pete Ware
93;; d.love@dl.ac.uk Dave Love
93;; 94;;
94;; Special thanks go to Dan Nicolaescu <done@ece.arizona.edu>, who 95;; Special thanks go to Dan Nicolaescu <done@ece.arizona.edu>, who
95;; reimplemented hideshow using overlays (rather than selective display), 96;; reimplemented hideshow using overlays (rather than selective display),
@@ -511,7 +512,7 @@ function; and adjust-block-beginning function."
511 c-start-regexp))) 512 c-start-regexp)))
512 hs-forward-sexp-func (or (nth 4 lookup) 'forward-sexp) 513 hs-forward-sexp-func (or (nth 4 lookup) 'forward-sexp)
513 hs-adjust-block-beginning (nth 5 lookup))) 514 hs-adjust-block-beginning (nth 5 lookup)))
514 (error "% Mode doesn't support Hideshow Mode" mode-name))) 515 (error "%s Mode doesn't support Hideshow Mode" mode-name)))
515 516
516(defun hs-find-block-beginning () 517(defun hs-find-block-beginning ()
517 "Reposition point at block-start. 518 "Reposition point at block-start.