Commit e5d77022 authored by Jim Blandy's avatar Jim Blandy

*** empty log message ***

parent 53b0a6f8
...@@ -68,7 +68,7 @@ unsuccessful after disturbing the status quo, config.status is removed." ...@@ -68,7 +68,7 @@ unsuccessful after disturbing the status quo, config.status is removed."
if [ ! -r ./src/lisp.h ]; then if [ ! -r ./src/lisp.h ]; then
echo "${progname}: Can't find Emacs sources in \`./src'. echo "${progname}: Can't find Emacs sources in \`./src'.
Run this config script in the top directory of the Emacs source tree." 1>&2 Run this config script in the top directory of the Emacs source tree." >&2
exit 1 exit 1
fi fi
...@@ -139,7 +139,11 @@ while [ $# != 0 ]; do ...@@ -139,7 +139,11 @@ while [ $# != 0 ]; do
;; ;;
*:${opt}*:${opt}*:* ) # Ambiguous prefix. *:${opt}*:${opt}*:* ) # Ambiguous prefix.
echo "\`-${opt}' is an ambiguous switch; it could be any of the following:" echo "\`-${opt}' is an ambiguous switch; it could be any of the following:"
echo `echo ${options} | tr ':' '\012' | grep '^'${opt}` # We can't just use tr to translate colons to newlines, since
# BSD sed and SYSV sed use different syntaxes for that.
spaced_options=`echo ${options} | tr ':' ' '`
echo `(for option in ${spaced_options}; do echo $option; done) \
| grep "^${opt}"`
echo ${short_usage} echo ${short_usage}
exit 1 exit 1
;; ;;
...@@ -170,7 +174,7 @@ while [ $# != 0 ]; do ...@@ -170,7 +174,7 @@ while [ $# != 0 ]; do
n | no ) val=no ;; n | no ) val=no ;;
* ) * )
echo "The \`-${optvar}' option (\`-${opt}') is supposed to have a boolean echo "The \`-${optvar}' option (\`-${opt}') is supposed to have a boolean
value - set it to either \`yes' or \`no'." 1>&2 value - set it to either \`yes' or \`no'." >&2
exit 1 exit 1
;; ;;
esac esac
...@@ -208,7 +212,7 @@ machfile="m/${machine}.h" ...@@ -208,7 +212,7 @@ machfile="m/${machine}.h"
if [ ! -r src/${machfile} ]; then if [ ! -r src/${machfile} ]; then
echo "${progname}: Emacs has no configuration info for the machine called echo "${progname}: Emacs has no configuration info for the machine called
\`${machine}'. Look at etc/MACHINES for the names of machines \`${machine}'. Look at etc/MACHINES for the names of machines
that Emacs has been ported to." 1>&2 that Emacs has been ported to." >&2
exit 1 exit 1
fi fi
...@@ -226,7 +230,7 @@ if [ "${opsystem}" = "" ]; then ...@@ -226,7 +230,7 @@ if [ "${opsystem}" = "" ]; then
system a \`${machine}' machine might run. Try specifying the system a \`${machine}' machine might run. Try specifying the
operating system explicitly by passing ${progname} an operating system explicitly by passing ${progname} an
\`-opsystem=SYSTEM-NAME' flag. Look at etc/MACHINES for the \`-opsystem=SYSTEM-NAME' flag. Look at etc/MACHINES for the
names of operating systems that Emacs has been ported to." 1>&2 names of operating systems that Emacs has been ported to." >&2
exit 1 exit 1
fi fi
...@@ -238,7 +242,7 @@ out which one you're running. Run ${progname} with -machine and ...@@ -238,7 +242,7 @@ out which one you're running. Run ${progname} with -machine and
(This information comes from the file \`etc/MACHINES' - see that (This information comes from the file \`etc/MACHINES' - see that
file for more detail.) file for more detail.)
" 1>&2 " >&2
sed < src/${machfile} -e '1,/NOTE-START/d' -e '/NOTE-END/,$d' | more sed < src/${machfile} -e '1,/NOTE-START/d' -e '/NOTE-END/,$d' | more
echo echo
exit 1 exit 1
...@@ -250,7 +254,7 @@ file for more detail.) ...@@ -250,7 +254,7 @@ file for more detail.)
operating system for the machine \`${machine}' is \`${opsystem}', operating system for the machine \`${machine}' is \`${opsystem}',
but there is no configuration file for \`${opsystem}', so Emacs's but there is no configuration file for \`${opsystem}', so Emacs's
default info is screwed up. Try specifying the operating system default info is screwed up. Try specifying the operating system
explicitly by passing ${progname} an \`-opsystem=SYSTEM-NAME' flag." 1>&2 explicitly by passing ${progname} an \`-opsystem=SYSTEM-NAME' flag." >&2
exit 1 exit 1
fi fi
else else
...@@ -258,7 +262,7 @@ else ...@@ -258,7 +262,7 @@ else
if [ ! -r src/${opsysfile} ]; then if [ ! -r src/${opsysfile} ]; then
echo "${progname}: Emacs has no configuration info for the operating system echo "${progname}: Emacs has no configuration info for the operating system
\`${opsystem}'. Look at etc/MACHINES for the names of operating \`${opsystem}'. Look at etc/MACHINES for the names of operating
systems that Emacs has been ported to." 1>&2 systems that Emacs has been ported to." >&2
exit 1 exit 1
fi fi
fi fi
...@@ -312,7 +316,9 @@ if [ ! "${infodir}" ]; then ...@@ -312,7 +316,9 @@ if [ ! "${infodir}" ]; then
fi fi
echo "Checking window system." echo "Checking window system."
window_system="`echo ${window_system} | tr A-Z a-z`" # Note that SYSV `tr' doesn't handle character ranges.
window_system="`echo ${window_system} \
| tr ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz`"
case "${window_system}" in case "${window_system}" in
"none" | "x11" | "x10" ) ;; "none" | "x11" | "x10" ) ;;
"x" ) window_system=x11 ;; "x" ) window_system=x11 ;;
...@@ -324,7 +330,7 @@ case "${window_system}" in ...@@ -324,7 +330,7 @@ case "${window_system}" in
fi fi
;; ;;
* ) * )
echo "The \`-window_system' option must be set to \`none' or \`X11'." 1>&2 echo "The \`-window_system' option must be set to \`none' or \`X11'." >&2
exit 1 exit 1
;; ;;
esac esac
...@@ -463,6 +469,7 @@ esac ...@@ -463,6 +469,7 @@ esac
sed_flags="-e 's:@machine@:${machfile}:'" sed_flags="-e 's:@machine@:${machfile}:'"
sed_flags="${sed_flags} -e 's:@opsystem@:${opsysfile}:'" sed_flags="${sed_flags} -e 's:@opsystem@:${opsysfile}:'"
for flag in `echo ${config_h_opts} | tr ':' ' '`; do for flag in `echo ${config_h_opts} | tr ':' ' '`; do
# Note that SYSV `tr' doesn't handle character ranges.
cflagname=`echo ${flag} \ cflagname=`echo ${flag} \
| tr abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ` | tr abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ`
val=`eval echo '$'${flag}` val=`eval echo '$'${flag}`
...@@ -562,28 +569,28 @@ if [ "${highpri}" ]; then ...@@ -562,28 +569,28 @@ if [ "${highpri}" ]; then
else else
desc_highpri="none" desc_highpri="none"
fi fi
message="# Configured for machine \`${machine}' running \`${opsystem}'. message="Configured for machine \`${machine}' running \`${opsystem}'.
# The following values have been set in ./Makefile and ./build-install: The following values have been set in ./Makefile and ./build-install:
# Executables will be placed in \`make install' or \`build-install' will placed executables in
# ${bindir}. ${bindir}.
# Emacs's lisp search path will be Emacs's lisp search path will be
# \`${lisppath}'. \`${lisppath}'.
# Emacs will look for its architecture-independent data in Emacs will look for its architecture-independent data in
# ${datadir}. ${datadir}.
# Emacs will look for its utility programs and other architecture- Emacs will look for its utility programs and other architecture-
# dependent data in dependent data in
# ${libdir}. ${libdir}.
# Emacs will keep track of file-locking in Emacs will keep track of file-locking in
# ${lockdir}. ${lockdir}.
# The following values have been set in src/config.h: The following values have been set in src/config.h:
# At how much higher than normal priority should Emacs run? ${desc_highpri} At how much higher than normal priority should Emacs run? ${desc_highpri}
# Should Emacs use the GNU version of malloc? ${gnu_malloc}${gnu_malloc_reason} Should Emacs use the GNU version of malloc? ${gnu_malloc}${gnu_malloc_reason}
# Should Emacs use the relocating allocator for buffers? ${rel_alloc} Should Emacs use the relocating allocator for buffers? ${rel_alloc}
# Should Emacs support a floating point Elisp type? ${lisp_float_type} Should Emacs support a floating point Elisp type? ${lisp_float_type}
# What window system should Emacs use? ${window_system} What window system should Emacs use? ${window_system}
# Should Emacs support mouse menus, which require X11? ${have_x_menu} Should Emacs support mouse menus, which require X11? ${have_x_menu}
# What compiler should emacs be built with? ${cc} What compiler should emacs be built with? ${cc}
# Should the compilation use \`-g' and/or \`-O'? ${c_switch_site- neither}" Should the compilation use \`-g' and/or \`-O'? ${c_switch_site- neither}"
# Document the damage we have done by writing config.status. # Document the damage we have done by writing config.status.
...@@ -593,7 +600,7 @@ echo "# This file is generated by \`${progname}.' ...@@ -593,7 +600,7 @@ echo "# This file is generated by \`${progname}.'
# If you are thinking about editing it, you should seriously consider # If you are thinking about editing it, you should seriously consider
# running \`${progname}' instead. # running \`${progname}' instead.
" >> config.status " >> config.status
echo "${message}" >> config.status echo "${message}" | sed -e 's/^/# /' >> config.status
echo "'./${progname}' ${arguments} "'$@' >> config.status echo "'./${progname}' ${arguments} "'$@' >> config.status
# Remind people not to edit this. # Remind people not to edit this.
chmod -w config.status chmod -w config.status
...@@ -601,6 +608,6 @@ chmod +x config.status ...@@ -601,6 +608,6 @@ chmod +x config.status
# Print the description. # Print the description.
echo echo
echo "${message}" | sed -e 's/^# //' echo "${message}"
exit 0 exit 0
...@@ -19,7 +19,6 @@ ...@@ -19,7 +19,6 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;;###autoload
(defconst only-global-abbrevs nil "\ (defconst only-global-abbrevs nil "\
*t means user plans to use global abbrevs only. *t means user plans to use global abbrevs only.
Makes the commands to define mode-specific abbrevs define global ones instead.") Makes the commands to define mode-specific abbrevs define global ones instead.")
......
This diff is collapsed.
;;; holidays.el --- holiday functions for the calendar package ;;; holidays.el --- holiday functions for the calendar package
;;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
;; Copyright (C) 1989, 1990, 1991 Free Software Foundation, Inc.
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
...@@ -34,6 +33,8 @@ ...@@ -34,6 +33,8 @@
;; pages 899-928. ;; pages 899-928.
(require 'calendar) (require 'calendar)
;;;###autoload
(defun holidays () (defun holidays ()
"Display the holidays for last month, this month, and next month. "Display the holidays for last month, this month, and next month.
This function is suitable for execution in a .emacs file." This function is suitable for execution in a .emacs file."
...@@ -62,7 +63,8 @@ The holidays are those in the list calendar-holidays." ...@@ -62,7 +63,8 @@ The holidays are those in the list calendar-holidays."
"Find holidays for the date specified by the cursor in the calendar window." "Find holidays for the date specified by the cursor in the calendar window."
(interactive) (interactive)
(message "Checking holidays...") (message "Checking holidays...")
(let* ((date (calendar-cursor-to-date)) (let* ((date (or (calendar-cursor-to-date)
(error "Cursor is not on a date!")))
(date-string (calendar-date-string date)) (date-string (calendar-date-string date))
(holiday-list (check-calendar-holidays date)) (holiday-list (check-calendar-holidays date))
(holiday-string (mapconcat 'identity holiday-list "; ")) (holiday-string (mapconcat 'identity holiday-list "; "))
......
...@@ -2834,8 +2834,8 @@ Patched to remove the most recent completion." ...@@ -2834,8 +2834,8 @@ Patched to remove the most recent completion."
(use-completion-before-separator) (use-completion-before-separator)
(self-insert-command arg) (self-insert-command arg)
(and (> (current-column) fill-column) (and (> (current-column) fill-column)
auto-fill-hook auto-fill-function
(funcall auto-fill-hook)) (funcall auto-fill-function))
) )
;;;----------------------------------------------- ;;;-----------------------------------------------
......
;;; diary.el --- diary functions. ;;; diary.el --- diary functions.
;; Copyright (C) 1989, 1990 Free Software Foundation, Inc.
;; Copyright (C) 1989, 1990, 1991 Free Software Foundation, Inc.
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
...@@ -29,6 +28,8 @@ ...@@ -29,6 +28,8 @@
;; Urbana, Illinois 61801 ;; Urbana, Illinois 61801
(require 'calendar) (require 'calendar)
;;;###autoload
(defun diary (&optional arg) (defun diary (&optional arg)
"Generate the diary window for ARG days starting with the current date. "Generate the diary window for ARG days starting with the current date.
If no argument is provided, the number of days of diary entries is governed If no argument is provided, the number of days of diary entries is governed
...@@ -1254,8 +1255,8 @@ ending of that number (that is, `st', `nd', `rd' or `th', as appropriate." ...@@ -1254,8 +1255,8 @@ ending of that number (that is, `st', `nd', `rd' or `th', as appropriate."
(defun diary-ordinal-suffix (n) (defun diary-ordinal-suffix (n)
"Ordinal suffix for N. (That is, `st', `nd', `rd', or `th', as appropriate.)" "Ordinal suffix for N. (That is, `st', `nd', `rd', or `th', as appropriate.)"
(if (or (and (< 9 n) (< n 20)) (if (or (memq (% n 100) '(11 12 13))
(memq (% n 10) '(4 5 6 7 8 9 0))) (< 3 (% n 10)))
"th" "th"
(aref ["th" "st" "nd" "rd"] (% n 10)))) (aref ["th" "st" "nd" "rd"] (% n 10))))
...@@ -1374,8 +1375,8 @@ order of the parameters is changed to DEATH-DAY, DEATH-MONTH, DEATH-YEAR." ...@@ -1374,8 +1375,8 @@ order of the parameters is changed to DEATH-DAY, DEATH-MONTH, DEATH-YEAR."
(t "th")))))) (t "th"))))))
(defun diary-rosh-hodesh () (defun diary-rosh-hodesh ()
"Rosh Hodesh diary entry--entry applies if date is Rosh Hodesh or the "Rosh Hodesh diary entry--entry applies if date is Rosh Hodesh, the day
Saturday before." before, or the Saturday before."
(let* ((d (calendar-absolute-from-gregorian date)) (let* ((d (calendar-absolute-from-gregorian date))
(h-date (calendar-hebrew-from-absolute d)) (h-date (calendar-hebrew-from-absolute d))
(h-month (extract-calendar-month h-date)) (h-month (extract-calendar-month h-date))
...@@ -1415,9 +1416,18 @@ Saturday before." ...@@ -1415,9 +1416,18 @@ Saturday before."
((and (< h-day 30) (> h-day 22) (= 30 last-day)) ((and (< h-day 30) (> h-day 22) (= 30 last-day))
(format "Mevarhim Rosh Hodesh %s (%s-%s)" (format "Mevarhim Rosh Hodesh %s (%s-%s)"
(aref h-month-names h-month) (aref h-month-names h-month)
(aref calendar-day-name-array (- 29 h-day)) (if (= h-day 29)
"tomorrow"
(aref calendar-day-name-array (- 29 h-day)))
(aref calendar-day-name-array (aref calendar-day-name-array
(mod (- 30 h-day) 7))))))))) (mod (- 30 h-day) 7)))))
(if (and (= h-day 29) (/= h-month 6))
(format "Erev Rosh Hodesh %s"
(aref h-month-names
(if (= h-month
(hebrew-calendar-last-month-of-year
h-year))
0 h-month))))))))
(defun diary-parasha () (defun diary-parasha ()
"Parasha diary entry--entry applies if date is a Saturday." "Parasha diary entry--entry applies if date is a Saturday."
...@@ -1606,39 +1616,6 @@ start on Tuesday.") ...@@ -1606,39 +1616,6 @@ start on Tuesday.")
(aref hebrew-calendar-parashiot-names (aref p 1))) (aref hebrew-calendar-parashiot-names (aref p 1)))
(aref hebrew-calendar-parashiot-names p))) (aref hebrew-calendar-parashiot-names p)))
(defun hebrew-calendar-yahrzeit (death-date year)
"Absolute date of the anniversary of Hebrew DEATH-DATE in Hebrew YEAR."
(let* ((death-day (extract-calendar-day death-date))
(death-month (extract-calendar-month death-date))
(death-year (extract-calendar-year death-date)))
(cond
;; If it's Heshvan 30 it depends on the first anniversary; if
;; that was not Heshvan 30, use the day before Kislev 1.
((and (= death-month 8)
(= death-day 30)
(not (hebrew-calendar-long-heshvan-p (1+ death-year))))
(1- (calendar-absolute-from-hebrew (list 9 1 year))))
;; If it's Kislev 30 it depends on the first anniversary; if
;; that was not Kislev 30, use the day before Teveth 1.
((and (= death-month 9)
(= death-day 30)
(hebrew-calendar-short-kislev-p (1+ death-year)))
(1- (calendar-absolute-from-hebrew (list 10 1 year))))
;; If it's Adar II, use the same day in last month of
;; year (Adar or Adar II).
((= death-month 13)
(calendar-absolute-from-hebrew
(list (last-month-of-hebrew-year year) death-day year)))
;; If it's the 30th in Adar I and $year$ is not a leap year
;; (so Adar has only 29 days), use the last day in Shevat.
((and (= death-day 30)
(= death-month 12)
(not (hebrew-calendar-leap-year-p death-year)))
(calendar-absolute-from-hebrew (list 11 30 year)))
;; In all other cases, use the normal anniversary of the date of death.
(t (calendar-absolute-from-hebrew
(list death-month death-day year))))))
(defun list-islamic-diary-entries () (defun list-islamic-diary-entries ()
"Add any Islamic date entries from the diary-file to diary-entries-list. "Add any Islamic date entries from the diary-file to diary-entries-list.
Islamic date diary entries must be prefaced by an islamic-diary-entry-symbol Islamic date diary entries must be prefaced by an islamic-diary-entry-symbol
......
...@@ -107,7 +107,7 @@ are used." ...@@ -107,7 +107,7 @@ are used."
;; under a different path on another system, ;; under a different path on another system,
;; `update-autoloads-here' won't be able to find the files to be ;; `update-autoloads-here' won't be able to find the files to be
;; autoloaded. So, if FILE is in the same directory or a ;; autoloaded. So, if FILE is in the same directory or a
;; subdirectory of the current buffer's file, we'll make it ;; subdirectory of the current buffer's directory, we'll make it
;; relative to the current buffer's directory. ;; relative to the current buffer's directory.
(setq file (expand-file-name file)) (setq file (expand-file-name file))
(if (and (< (length default-directory) (length file)) (if (and (< (length default-directory) (length file))
......
...@@ -18,7 +18,6 @@ ...@@ -18,7 +18,6 @@
;; along with GNU Emacs; see the file COPYING. If not, write to ;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;;###autoload
(defvar help-map (make-sparse-keymap) (defvar help-map (make-sparse-keymap)
"Keymap for characters following the Help key.") "Keymap for characters following the Help key.")
...@@ -42,6 +41,8 @@ ...@@ -42,6 +41,8 @@
(define-key help-map "f" 'describe-function) (define-key help-map "f" 'describe-function)
(define-key help-map "i" 'info) (define-key help-map "i" 'info)
(define-key help-map "\C-f" 'Info-goto-emacs-command-node)
(define-key help-map "\C-k" 'Info-goto-emacs-key-command-node)
(define-key help-map "l" 'view-lossage) (define-key help-map "l" 'view-lossage)
......
...@@ -19,7 +19,6 @@ ...@@ -19,7 +19,6 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;;###autoload
(defvar indent-line-function 'indent-to-left-margin "\ (defvar indent-line-function 'indent-to-left-margin "\
Function to indent current line.");Now in loaddefs.el Function to indent current line.");Now in loaddefs.el
......
...@@ -978,8 +978,6 @@ The locations are of the format used in Info-history, i.e. ...@@ -978,8 +978,6 @@ The locations are of the format used in Info-history, i.e.
(if (> num-matches 2) "ies" "y") (if (> num-matches 2) "ies" "y")
(if (> num-matches 2) "them" "it")))))) (if (> num-matches 2) "them" "it"))))))
(error "Couldn't find documentation for %s." command)))) (error "Couldn't find documentation for %s." command))))
;;;###autoload
(define-key help-map "\C-f" 'Info-goto-emacs-command-node)
;;;###autoload ;;;###autoload
(defun Info-goto-emacs-key-command-node (key) (defun Info-goto-emacs-key-command-node (key)
...@@ -995,8 +993,6 @@ Interactively, if the binding is execute-extended-command, a command is read." ...@@ -995,8 +993,6 @@ Interactively, if the binding is execute-extended-command, a command is read."
(read-command "Find documentation for command: "))) (read-command "Find documentation for command: ")))
(t (t
(Info-goto-emacs-command-node command))))) (Info-goto-emacs-command-node command)))))
;;;###autoload
(define-key help-map "\C-k" 'Info-goto-emacs-key-command-node)
(provide 'info) (provide 'info)
......
...@@ -18,59 +18,45 @@ ...@@ -18,59 +18,45 @@
;; along with GNU Emacs; see the file COPYING. If not, write to ;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;;###autoload
(defvar search-last-string "" "\ (defvar search-last-string "" "\
Last string search for by a non-regexp search command. Last string search for by a non-regexp search command.
This does not include direct calls to the primitive search functions, This does not include direct calls to the primitive search functions,
and does not include searches that are aborted.") and does not include searches that are aborted.")
;;;###autoload
(defvar search-last-regexp "" "\ (defvar search-last-regexp "" "\
Last string searched for by a regexp search command. Last string searched for by a regexp search command.
This does not include direct calls to the primitive search functions, This does not include direct calls to the primitive search functions,
and does not include searches that are aborted.") and does not include searches that are aborted.")
;;;###autoload
(defconst search-repeat-char ?\C-s "\ (defconst search-repeat-char ?\C-s "\
*Character to repeat incremental search forwards.") *Character to repeat incremental search forwards.")
;;;###autoload
(defconst search-reverse-char ?\C-r "\ (defconst search-reverse-char ?\C-r "\
*Character to repeat incremental search backwards.") *Character to repeat incremental search backwards.")
;;;###autoload
(defconst search-exit-char ?\C-m "\ (defconst search-exit-char ?\C-m "\
*Character to exit incremental search.") *Character to exit incremental search.")
;;;###autoload
(defconst search-delete-char ?\177 "\ (defconst search-delete-char ?\177 "\
*Character to delete from incremental search string.") *Character to delete from incremental search string.")
;;;###autoload
(defconst search-quote-char ?\C-q "\ (defconst search-quote-char ?\C-q "\
*Character to quote special characters for incremental search.") *Character to quote special characters for incremental search.")
;;;###autoload
(defconst search-yank-word-char ?\C-w "\ (defconst search-yank-word-char ?\C-w "\
*Character to pull next word from buffer into search string.") *Character to pull next word from buffer into search string.")
;;;###autoload
(defconst search-yank-line-char ?\C-y "\ (defconst search-yank-line-char ?\C-y "\
*Character to pull rest of line from buffer into search string.") *Character to pull rest of line from buffer into search string.")
;;;###autoload
(defconst search-ring-advance-char ?\M-n "\ (defconst search-ring-advance-char ?\M-n "\
*Character to pull next (more recent) search string from the ring of same.") *Character to pull next (more recent) search string from the ring of same.")
;;;###autoload
(defconst search-ring-retreat-char ?\M-p "\ (defconst search-ring-retreat-char ?\M-p "\
*Character to pull previous (older) search string from the ring of same.") *Character to pull previous (older) search string from the ring of same.")
;;;###autoload
(defconst search-exit-option t "\ (defconst search-exit-option t "\
*Non-nil means random control characters terminate incremental search.") *Non-nil means random control characters terminate incremental search.")
;;;###autoload
(defvar search-slow-window-lines 1 "\ (defvar search-slow-window-lines 1 "\
*Number of lines in slow search display windows. *Number of lines in slow search display windows.
These are the short windows used during incremental search on slow terminals. These are the short windows used during incremental search on slow terminals.
Negative means put the slow search window at the top (normally it's at bottom) Negative means put the slow search window at the top (normally it's at bottom)
and the value is minus the number of lines.") and the value is minus the number of lines.")
;;;###autoload
(defvar search-slow-speed 1200 "\ (defvar search-slow-speed 1200 "\
*Highest terminal speed at which to use \"slow\" style incremental search. *Highest terminal speed at which to use \"slow\" style incremental search.
This is the style where a one-line window is created to show the line This is the style where a one-line window is created to show the line
...@@ -104,7 +90,6 @@ Each element is a cons cell of the form (STRING . UPPERCASE-FLAG).") ...@@ -104,7 +90,6 @@ Each element is a cons cell of the form (STRING . UPPERCASE-FLAG).")
thing searched for.") thing searched for.")
;;;###autoload
(defun isearch-forward () (defun isearch-forward ()
"Do incremental search forward. "Do incremental search forward.
As you type characters, they add to the search string and are found. As you type characters, they add to the search string and are found.
...@@ -123,36 +108,29 @@ C-g while searching or when search has failed ...@@ -123,36 +108,29 @@ C-g while searching or when search has failed
C-g when search is successful aborts and moves point to starting point." C-g when search is successful aborts and moves point to starting point."
(interactive) (interactive)
(isearch t)) (isearch t))
;;;###autoload
(define-key global-map "\C-s" 'isearch-forward) (define-key global-map "\C-s" 'isearch-forward)
;;;###autoload
(defun isearch-forward-regexp () (defun isearch-forward-regexp ()
"Do incremental search forward for regular expression. "Do incremental search forward for regular expression.
Like ordinary incremental search except that your input Like ordinary incremental search except that your input
is treated as a regexp. See \\[isearch-forward] for more info." is treated as a regexp. See \\[isearch-forward] for more info."
(interactive) (interactive)
(isearch t t)) (isearch t t))
;;;###autoload
(define-key esc-map "\C-s" 'isearch-forward-regexp) (define-key esc-map "\C-s" 'isearch-forward-regexp)
;;;###autoload
(defun isearch-backward () (defun isearch-backward ()
"Do incremental search backward. "Do incremental search backward.
See \\[isearch-forward] for more information." See \\[isearch-forward] for more information."
(interactive) (interactive)
(isearch nil)) (isearch nil))
;;;###autoload
(define-key global-map "\C-r" 'isearch-backward) (define-key global-map "\C-r" 'isearch-backward)
;;;###autoload
(defun isearch-backward-regexp () (defun isearch-backward-regexp ()
"Do incremental search backward for regular expression. "Do incremental search backward for regular expression.
Like ordinary incremental search except that your input Like ordinary incremental search except that your input
is treated as a regexp. See \\[isearch-forward] for more info." is treated as a regexp. See \\[isearch-forward] for more info."
(interactive) (interactive)
(isearch nil t)) (isearch nil t))
;;;###autoload
(define-key esc-map "\C-r" 'isearch-backward-regexp) (define-key esc-map "\C-r" 'isearch-backward-regexp)
......
...@@ -272,6 +272,7 @@ means the default). The defaults for these variables are the global values of ...@@ -272,6 +272,7 @@ means the default). The defaults for these variables are the global values of
(set-buffer outbuf) (set-buffer outbuf)
(compilation-mode) (compilation-mode)
(buffer-disable-undo (current-buffer)) (buffer-disable-undo (current-buffer))
(setq buffer-read-only t)
(set (make-local-variable 'compilation-parse-errors-function) parser)