Mercurial > emacs
comparison lisp/progmodes/hideshow.el @ 92289:a60153302fa5
* progmodes/hideshow.el (hs-minor-mode-menu): Add some options to
the menu.
* vc.el (vc-deduce-fileset, vc-next-action, vc-start-entry)
(vc-finish-logentry): Check for vc-status-mode, not only for
vc-dired-mode.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Thu, 28 Feb 2008 03:35:22 +0000 |
| parents | f6fa050c615a |
| children | 8d89f150f3d7 |
comparison
equal
deleted
inserted
replaced
| 92288:b94c0a2204fd | 92289:a60153302fa5 |
|---|---|
| 229 ;; 4.30. Otherwise, the code seems stable. Passes checkdoc as of 4.32. | 229 ;; 4.30. Otherwise, the code seems stable. Passes checkdoc as of 4.32. |
| 230 ;; Version 5.x uses new algorithms for block selection and traversal, | 230 ;; Version 5.x uses new algorithms for block selection and traversal, |
| 231 ;; unbundles state save and restore, and includes more isearch support. | 231 ;; unbundles state save and restore, and includes more isearch support. |
| 232 | 232 |
| 233 ;;; Code: | 233 ;;; Code: |
| 234 | |
| 235 (require 'easymenu) | |
| 236 | 234 |
| 237 ;;--------------------------------------------------------------------------- | 235 ;;--------------------------------------------------------------------------- |
| 238 ;; user-configurable variables | 236 ;; user-configurable variables |
| 239 | 237 |
| 240 (defgroup hideshow nil | 238 (defgroup hideshow nil |
| 366 ["Show Block" hs-show-block | 364 ["Show Block" hs-show-block |
| 367 :help "Show the code or comment block at point"] | 365 :help "Show the code or comment block at point"] |
| 368 ["Hide All" hs-hide-all | 366 ["Hide All" hs-hide-all |
| 369 :help "Hide all the blocks in the buffer"] | 367 :help "Hide all the blocks in the buffer"] |
| 370 ["Show All" hs-show-all | 368 ["Show All" hs-show-all |
| 371 :help "Show all the clocks in the buffer"] | 369 :help "Show all the blocks in the buffer"] |
| 372 ["Hide Level" hs-hide-level | 370 ["Hide Level" hs-hide-level |
| 373 :help "Hide all block at levels below the current block"] | 371 :help "Hide all block at levels below the current block"] |
| 374 ["Toggle Hiding" hs-toggle-hiding | 372 ["Toggle Hiding" hs-toggle-hiding |
| 375 :help "Toggle the hiding state of the current block"])) | 373 :help "Toggle the hiding state of the current block"] |
| 374 "----" | |
| 375 ["Hide comments when hiding all" | |
| 376 (setq hs-hide-comments-when-hiding-all | |
| 377 (not hs-hide-comments-when-hiding-all)) | |
| 378 :help "If t also hide comment blocks when doing `hs-hide-all'" | |
| 379 :style toggle :selected hs-hide-comments-when-hiding-all] | |
| 380 ("Reveal on isearch" | |
| 381 ["Code blocks" (setq hs-isearch-open 'code) | |
| 382 :help "Show hidden code blocks when isearch matches inside them" | |
| 383 :active t :style radio :selected (eq hs-isearch-open 'code)] | |
| 384 ["Comment blocks" (setq hs-isearch-open 'comment) | |
| 385 :help "Show hidden comment blocks when isearch matches inside them" | |
| 386 :active t :style radio :selected (eq hs-isearch-open 'comment)] | |
| 387 ["Code and Comment blocks" (setq hs-isearch-open t) | |
| 388 :help "Show both hidden code and comment blocks when isearch matches inside them" | |
| 389 :active t :style radio :selected (eq hs-isearch-open 'comment)] | |
| 390 ["None" (setq hs-isearch-open nil) | |
| 391 :help "Do not hidden code or comment blocks when isearch matches inside them" | |
| 392 :active t :style radio :selected (eq hs-isearch-open nil)]))) | |
| 376 | 393 |
| 377 (defvar hs-c-start-regexp nil | 394 (defvar hs-c-start-regexp nil |
| 378 "Regexp for beginning of comments. | 395 "Regexp for beginning of comments. |
| 379 Differs from mode-specific comment regexps in that | 396 Differs from mode-specific comment regexps in that |
| 380 surrounding whitespace is stripped.") | 397 surrounding whitespace is stripped.") |