Mercurial > emacs
comparison lisp/progmodes/hideshow.el @ 87567:4c3c683cdff8
* erc-ibuffer.el (erc-channel-modes):
* bs.el (bs--sort-by-mode, bs--get-mode-name):
* imenu.el (imenu-add-to-menubar):
* makesum.el (make-command-summary):
* mouse.el (mouse-major-mode-menu, mouse-popup-menubar, mouse-buffer-menu):
* msb.el (msb--mode-menu-cond):
* calc/calc-embed.el (calc-do-embedded):
* emacs-lisp/helper.el (Helper-describe-mode):
* mail/emacsbug.el (report-emacs-bug):
* progmodes/hideshow.el (hs-grok-mode-type):
* textmodes/sgml-mode.el (sgml-mode-facemenu-add-face-function):
* textmodes/table.el (*table--cell-describe-mode):
Pass mode-name through format-mode-line.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 04 Jan 2008 06:29:12 +0000 |
| parents | b5dbe2a97229 |
| children | 606f2d163a64 3952f2dc0abc |
comparison
equal
deleted
inserted
replaced
| 87566:0c4a74c24677 | 87567:4c3c683cdff8 |
|---|---|
| 1 ;;; hideshow.el --- minor mode cmds to selectively display code/comment blocks | 1 ;;; hideshow.el --- minor mode cmds to selectively display code/comment blocks |
| 2 | 2 |
| 3 ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 | 3 ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 |
| 4 ;; 2004, 2005, 2006, 2007 Free Software Foundation, Inc. | 4 ;; 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
| 5 | 5 |
| 6 ;; Author: Thien-Thi Nguyen <ttn@gnu.org> | 6 ;; Author: Thien-Thi Nguyen <ttn@gnu.org> |
| 7 ;; Dan Nicolaescu <dann@ics.uci.edu> | 7 ;; Dan Nicolaescu <dann@ics.uci.edu> |
| 8 ;; Keywords: C C++ java lisp tools editing comments blocks hiding outlines | 8 ;; Keywords: C C++ java lisp tools editing comments blocks hiding outlines |
| 9 ;; Maintainer-Version: 5.65.2.2 | 9 ;; Maintainer-Version: 5.65.2.2 |
| 630 0 (1- (match-end 0))) | 630 0 (1- (match-end 0))) |
| 631 c-start-regexp))) | 631 c-start-regexp))) |
| 632 hs-forward-sexp-func (or (nth 4 lookup) 'forward-sexp) | 632 hs-forward-sexp-func (or (nth 4 lookup) 'forward-sexp) |
| 633 hs-adjust-block-beginning (nth 5 lookup))) | 633 hs-adjust-block-beginning (nth 5 lookup))) |
| 634 (setq hs-minor-mode nil) | 634 (setq hs-minor-mode nil) |
| 635 (error "%s Mode doesn't support Hideshow Minor Mode" mode-name))) | 635 (error "%s Mode doesn't support Hideshow Minor Mode" |
| 636 (format-mode-line mode-name)))) | |
| 636 | 637 |
| 637 (defun hs-find-block-beginning () | 638 (defun hs-find-block-beginning () |
| 638 "Reposition point at block-start. | 639 "Reposition point at block-start. |
| 639 Return point, or nil if original point was not in a block." | 640 Return point, or nil if original point was not in a block." |
| 640 (let ((done nil) | 641 (let ((done nil) |
| 963 ;;--------------------------------------------------------------------------- | 964 ;;--------------------------------------------------------------------------- |
| 964 ;; that's it | 965 ;; that's it |
| 965 | 966 |
| 966 (provide 'hideshow) | 967 (provide 'hideshow) |
| 967 | 968 |
| 968 ;;; arch-tag: 378b6852-e82a-466a-aee8-d9c73859a65e | 969 ;; arch-tag: 378b6852-e82a-466a-aee8-d9c73859a65e |
| 969 ;;; hideshow.el ends here | 970 ;;; hideshow.el ends here |