Mercurial > emacs
view update-subdirs @ 94260:5be46d0e04dd
(eval-when-compile): Require `help-macro'.
(isearch-help-for-help-internal): Isearch specific Help screen
created by `make-help-screen'.
(isearch-help-map): New variable that binds "b", "k", "m" to
isearch-specific commands, and binds other keys to
isearch-other-control-char, thus allowing other Help keys to
exit isearch mode and execute their global definitions.
(isearch-help-for-help, isearch-describe-bindings)
(isearch-describe-key, isearch-describe-mode): New commands.
(isearch-mode-help): Define alias to isearch-describe-mode
and remove its old function definition.
(isearch-mode-map): Bind "\C-h" to isearch-help-map.
Remove old comments because this issue is settled now.
(isearch-forward): Describe three new Help commands in the docstring.
(isearch-mode): Remove \\{isearch-mode-map} from the docstring,
leave the single sentence at the first line of the docstring,
and prepend the word "function" before `isearch-forward'
to make the Help link to the function instead of variable.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Tue, 22 Apr 2008 20:30:32 +0000 |
parents | 107ccd98fa12 |
children | 606f2d163a64 1a762a842f80 |
line wrap: on
line source
#!/bin/sh # Write into $1/subdirs.el a list of subdirs of directory $1. # Copyright (C) 1994, 1995, 1997, 1999, 2001, 2002, 2003, 2004, 2005, # 2006, 2007, 2008 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # # GNU Emacs is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3, or (at your option) # any later version. # # GNU Emacs is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with GNU Emacs; see the file COPYING. If not, write to the # Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, # Boston, MA 02110-1301, USA. cd $1 for file in *; do case $file in *.elc | *.el | term | RCS | CVS | Old | . | .. | =* | *~ | *.orig | *.rej) ;; *) if [ -d $file ]; then subdirs="\"$file\" $subdirs" fi ;; esac done if [ "x$subdirs" = x ]; then rm -f subdirs.el else rm -f subdirs.el~ echo ";; -*- no-byte-compile: t -*- ;; In load-path, after this directory should come ;; certain of its subdirectories. Here we specify them. (normal-top-level-add-to-load-path '($subdirs)) ;; Local" "Variables: ;; version-control: never ;; no-byte-compile: t ;; End:" > subdirs.el~ mv subdirs.el~ subdirs.el fi # arch-tag: 56ebcf1b-5c30-4934-b0b4-72d374064704