From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: bill Newsgroups: gmane.emacs.help Subject: Support for collapsible text? Date: Wed, 20 Nov 2002 15:46:33 +0000 (UTC) Organization: none Sender: help-gnu-emacs-admin@gnu.org Message-ID: NNTP-Posting-Host: main.gmane.org X-Trace: main.gmane.org 1037807538 2060 80.91.224.249 (20 Nov 2002 15:52:18 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 20 Nov 2002 15:52:18 +0000 (UTC) Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18EX99-0000WK-00 for ; Wed, 20 Nov 2002 16:52:11 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10) id 18EX8H-000226-00; Wed, 20 Nov 2002 10:51:17 -0500 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!logbridge.uoregon.edu!panix!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 57 Original-NNTP-Posting-Host: panix3.panix.com Original-X-Trace: reader1.panix.com 1037807193 23050 166.84.1.3 (20 Nov 2002 15:46:33 GMT) Original-X-Complaints-To: abuse@panix.com Original-NNTP-Posting-Date: Wed, 20 Nov 2002 15:46:33 +0000 (UTC) X-No-Confirm: yes User-Agent: nn/6.6.4 Original-Xref: shelby.stanford.edu gnu.emacs.help:107243 Original-To: help-gnu-emacs@gnu.org Errors-To: help-gnu-emacs-admin@gnu.org X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.0.11 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.help:3798 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:3798 Is there a programming mode that supports "collapsible" blocks? For example, if I have source code like this: (defun find-file (filename &optional wildcards) "Edit file FILENAME. Switch to a buffer visiting file FILENAME, creating one if none already exists. Interactively, or if WILDCARDS is non-nil in a call from Lisp, expand wildcards (if any) and visit multiple files." (interactive "FFind file: \np") (let ((value (find-file-noselect filename nil nil wildcards))) (if (listp value) (mapcar 'switch-to-buffer (nreverse value)) (switch-to-buffer value)))) (defun find-file-other-window (filename &optional wildcards) "Edit file FILENAME, in another window. May create a new window, or reuse an existing one. See the function `display-buffer'. Interactively, or if WILDCARDS is non-nil in a call from Lisp, expand wildcards (if any) and visit multiple files." (interactive "FFind file in other window: \np") (let ((value (find-file-noselect filename nil nil wildcards))) (if (listp value) (progn (setq value (nreverse value)) (switch-to-buffer-other-window (car value)) (mapcar 'switch-to-buffer (cdr value))) (switch-to-buffer-other-window value)))) ...it would be nice to be able to collapse some of this text, to something like: (defun find-file ... ) (defun find-file-other-window ... ) Partial expansion of collapsed text would also be nice: (defun find-file-other-window (filename &optional wildcards) "Edit file FILENAME, in another window. May create a new window, or reuse an existing one. See the function `display-buffer'. Interactively, or if WILDCARDS is non-nil in a call from Lisp, expand wildcards (if any) and visit multiple files." (interactive ... ) (let ... )) Thanks, bill