Mercurial > emacs
comparison lisp/simple.el @ 83383:2a679c81f552
Merged from miles@gnu.org--gnu-2005 (patch 118-132, 551-577)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-551
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-552
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-553
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-554
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-555
Remove CVS keywords from newsticker files
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-556
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-557
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-558
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-559
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-560
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-561
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-562
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-563
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-564
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-565
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-566
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-567
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-568
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-569
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-570
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-571
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-572
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-573
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-574
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-575
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-576
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-577
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-118
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-119
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-120
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-121
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-122
Update from CVS: lisp/mm-url.el (mm-url-decode-entities): Fix regexp.
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-123
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-124
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-125
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-126
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-127
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-128
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-129
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-130
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-131
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-132
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-423
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Sun, 09 Oct 2005 20:00:17 +0000 |
parents | 46dfd959d88a d88ec92a0f15 |
children | 08b4dd6a6e87 |
comparison
equal
deleted
inserted
replaced
83382:7a3090aca393 | 83383:2a679c81f552 |
---|---|
258 (when (setq next-error-last-buffer (next-error-find-buffer)) | 258 (when (setq next-error-last-buffer (next-error-find-buffer)) |
259 ;; we know here that next-error-function is a valid symbol we can funcall | 259 ;; we know here that next-error-function is a valid symbol we can funcall |
260 (with-current-buffer next-error-last-buffer | 260 (with-current-buffer next-error-last-buffer |
261 (funcall next-error-function (prefix-numeric-value arg) reset) | 261 (funcall next-error-function (prefix-numeric-value arg) reset) |
262 (run-hooks 'next-error-hook)))) | 262 (run-hooks 'next-error-hook)))) |
263 | |
264 (defun next-error-internal () | |
265 "Visit the source code corresponding to the `next-error' message at point." | |
266 (setq next-error-last-buffer (current-buffer)) | |
267 ;; we know here that next-error-function is a valid symbol we can funcall | |
268 (with-current-buffer next-error-last-buffer | |
269 (funcall next-error-function 0 nil) | |
270 (run-hooks 'next-error-hook))) | |
263 | 271 |
264 (defalias 'goto-next-locus 'next-error) | 272 (defalias 'goto-next-locus 'next-error) |
265 (defalias 'next-match 'next-error) | 273 (defalias 'next-match 'next-error) |
266 | 274 |
267 (defun previous-error (&optional n) | 275 (defun previous-error (&optional n) |
3670 (if arg | 3678 (if arg |
3671 (progn | 3679 (progn |
3672 (setq goal-column nil) | 3680 (setq goal-column nil) |
3673 (message "No goal column")) | 3681 (message "No goal column")) |
3674 (setq goal-column (current-column)) | 3682 (setq goal-column (current-column)) |
3675 (message (substitute-command-keys | 3683 ;; The older method below can be erroneous if `set-goal-column' is bound |
3676 "Goal column %d (use \\[set-goal-column] with an arg to unset it)") | 3684 ;; to a sequence containing % |
3677 goal-column)) | 3685 ;;(message (substitute-command-keys |
3686 ;;"Goal column %d (use \\[set-goal-column] with an arg to unset it)") | |
3687 ;;goal-column) | |
3688 (message "%s" | |
3689 (concat | |
3690 (format "Goal column %d " goal-column) | |
3691 (substitute-command-keys | |
3692 "(use \\[set-goal-column] with an arg to unset it)"))) | |
3693 | |
3694 ) | |
3678 nil) | 3695 nil) |
3679 | 3696 |
3680 | 3697 |
3681 (defun scroll-other-window-down (lines) | 3698 (defun scroll-other-window-down (lines) |
3682 "Scroll the \"other window\" down. | 3699 "Scroll the \"other window\" down. |
4229 :group 'paren-blinking) | 4246 :group 'paren-blinking) |
4230 | 4247 |
4231 (defun blink-matching-open () | 4248 (defun blink-matching-open () |
4232 "Move cursor momentarily to the beginning of the sexp before point." | 4249 "Move cursor momentarily to the beginning of the sexp before point." |
4233 (interactive) | 4250 (interactive) |
4234 (when (and (> (point) (1+ (point-min))) | 4251 (when (and (> (point) (point-min)) |
4235 blink-matching-paren | 4252 blink-matching-paren |
4236 ;; Verify an even number of quoting characters precede the close. | 4253 ;; Verify an even number of quoting characters precede the close. |
4237 (= 1 (logand 1 (- (point) | 4254 (= 1 (logand 1 (- (point) |
4238 (save-excursion | 4255 (save-excursion |
4239 (forward-char -1) | 4256 (forward-char -1) |