# HG changeset patch # User Thien-Thi Nguyen # Date 984526461 0 # Node ID 04b49d6657871dbcf503f95d842d0105477d3ea0 # Parent 2846df58800744dcd16a22a314dae8deab67a072 Update copyright. (hs-minor-mode-map): Change bindings to use `C-c @' prefix. diff -r 2846df588007 -r 04b49d665787 lisp/progmodes/hideshow.el --- a/lisp/progmodes/hideshow.el Tue Mar 13 16:51:32 2001 +0000 +++ b/lisp/progmodes/hideshow.el Tue Mar 13 23:34:21 2001 +0000 @@ -1,11 +1,11 @@ ;;; hideshow.el --- minor mode cmds to selectively display blocks of code -;; Copyright (C) 1994, 95, 96, 97, 98, 99, 2000 Free Software Foundation +;; Copyright (C) 1994, 95, 96, 97, 98, 99, 2000, 01 Free Software Foundation ;; Author: Thien-Thi Nguyen ;; Dan Nicolaescu ;; Keywords: C C++ java lisp tools editing comments blocks hiding outlines -;; Maintainer-Version: 5.22 +;; Maintainer-Version: 5.26 ;; Time-of-Day-Author-Most-Likely-to-be-Recalcitrant: early morning ;; This file is part of GNU Emacs. @@ -33,12 +33,12 @@ ;; are available, implementing block hiding and showing. They (and their ;; keybindings) are: ;; -;; hs-hide-block C-c C-h -;; hs-show-block C-c C-s -;; hs-hide-all C-c C-M-h -;; hs-show-all C-c C-M-s -;; hs-hide-level C-c C-l -;; hs-toggle-hiding C-c C-c +;; hs-hide-block C-c @ C-h +;; hs-show-block C-c @ C-s +;; hs-hide-all C-c @ C-M-h +;; hs-show-all C-c @ C-M-s +;; hs-hide-level C-c @ C-l +;; hs-toggle-hiding C-c @ C-c ;; hs-mouse-toggle-hiding [(shift button-2)] ;; hs-hide-initial-comment-block ;; @@ -862,12 +862,12 @@ (if (aref ent 0) ent "-----")) ;; These bindings roughly imitate those used by Outline mode. ;; menu entry command key - '(["Hide Block" hs-hide-block "\C-c\C-h"] - ["Show Block" hs-show-block "\C-c\C-s"] - ["Hide All" hs-hide-all "\C-c\C-\M-h"] - ["Show All" hs-show-all "\C-c\C-\M-s"] - ["Hide Level" hs-hide-level "\C-c\C-l"] - ["Toggle Hiding" hs-toggle-hiding "\C-c\C-c"] + '(["Hide Block" hs-hide-block "\C-c@\C-h"] + ["Show Block" hs-show-block "\C-c@\C-s"] + ["Hide All" hs-hide-all "\C-c@\C-\M-h"] + ["Show All" hs-show-all "\C-c@\C-\M-s"] + ["Hide Level" hs-hide-level "\C-c@\C-l"] + ["Toggle Hiding" hs-toggle-hiding "\C-c@\C-c"] [nil hs-mouse-toggle-hiding [(shift button2)]] )))))