comparison lisp/simple.el @ 83291:bbf359ec4a59

Merged from [e-mail]--gnu-2005 (patch 269) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-269 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-331

83290:042f282a2ed7

(defgroup paren-matching nil
  "Highlight (un)matching of parens and expressions."
  :group 'matching)

(define-key global-map [?\C-x right] 'next-buffer)
(define-key global-map [?\C-x left] 'prev-buffer)
(defun next-buffer ()
  "Switch to the next buffer in cyclic order."
  (interactive)
  (let ((buffer (current-buffer)))
    (switch-to-buffer (other-buffer buffer))

    (with-current-buffer next-error-last-buffer
      (funcall next-error-function (prefix-numeric-value arg) reset))))

(defalias 'goto-next-locus 'next-error)
(defalias 'next-match 'next-error)

(define-key ctl-x-map "`" 'next-error)

(defun previous-error (&optional n)
  "Visit previous next-error message and corresponding source code.

Prefix arg N says how many error messages to move backwards (or

Repeat this command to undo more changes.
A numeric argument serves as a repeat count.
Contrary to `undo', this will not redo a previous undo."
  (interactive "*p")
  (let ((undo-no-redo t)) (undo arg)))
;; Richard said that we should not use C-x <uppercase letter> and I have
;; no idea whereas to bind it.  Any suggestion welcome.  -stef
;; (define-key ctl-x-map "U" 'undo-only)

(defvar undo-in-progress nil
  "Non-nil while performing an undo.
Some change-hooks test this variable to do something different.")

   ;; Just invert the argument's meaning.
   ;; We can do that without knowing which window it will be.
   (if (eq lines '-) nil
     (if (null lines) '-
       (- (prefix-numeric-value lines))))))
(define-key esc-map [?\C-\S-v] 'scroll-other-window-down)

(defun beginning-of-buffer-other-window (arg)
  "Move point to the beginning of the buffer in the other window.
Leave mark at previous position.
With arg N, put point N/10 of the way from the true beginning."

			(and parse-sexp-ignore-comments
			     (not blink-matching-paren-dont-ignore-comments))))
		   (setq blinkpos (scan-sexps oldpos -1)))
	       (error nil)))
	   (and blinkpos
		(not (eq (car (syntax-after blinkpos)) 8)) ;Not syntax '$'.
		(setq matching-paren
		      (let ((syntax (syntax-after blinkpos)))
			(and (consp syntax)
			     (eq (logand (car syntax) 255) 4)
			     (cdr syntax)))
		      mismatch
		      (or (null matching-paren)
			  (/= (char-after (1- oldpos))
			      matching-paren))))

  (if (fboundp 'kmacro-keyboard-quit)
      (kmacro-keyboard-quit))
  (setq defining-kbd-macro nil)
  (signal 'quit nil))

(define-key global-map "\C-g" 'keyboard-quit)

(defvar buffer-quit-function nil
  "Function to call to \"quit\" the current buffer, or nil if none.
\\[keyboard-escape-quit] calls this function when its more local actions
\(such as cancelling a prefix argument, minibuffer or region) do not apply.")

    (if device
	(plist-put sound :device device))
    (push 'sound sound)
    (play-sound sound)))

(define-key global-map "\e\e\e" 'keyboard-escape-quit)

(defcustom read-mail-command 'rmail
  "*Your preference for a mail reading package.
This is used by some keybindings which support reading mail.
See also `mail-user-agent' concerning sending mail."

  (interactive "bClone buffer in other window: ")
  (let ((pop-up-windows t))
    (set-buffer buffer)
    (clone-indirect-buffer nil t norecord)))

(define-key ctl-x-4-map "c" 'clone-indirect-buffer-other-window)

;;; Handling of Backspace and Delete keys.

(defcustom normal-erase-is-backspace
  (and (not noninteractive)

83291:bbf359ec4a59

(defgroup paren-matching nil
  "Highlight (un)matching of parens and expressions."
  :group 'matching)

(defun next-buffer ()
  "Switch to the next buffer in cyclic order."
  (interactive)
  (let ((buffer (current-buffer)))
    (switch-to-buffer (other-buffer buffer))

    (with-current-buffer next-error-last-buffer
      (funcall next-error-function (prefix-numeric-value arg) reset))))

(defalias 'goto-next-locus 'next-error)
(defalias 'next-match 'next-error)

(defun previous-error (&optional n)
  "Visit previous next-error message and corresponding source code.

Prefix arg N says how many error messages to move backwards (or

Repeat this command to undo more changes.
A numeric argument serves as a repeat count.
Contrary to `undo', this will not redo a previous undo."
  (interactive "*p")
  (let ((undo-no-redo t)) (undo arg)))

(defvar undo-in-progress nil
  "Non-nil while performing an undo.
Some change-hooks test this variable to do something different.")

   ;; Just invert the argument's meaning.
   ;; We can do that without knowing which window it will be.
   (if (eq lines '-) nil
     (if (null lines) '-
       (- (prefix-numeric-value lines))))))

(defun beginning-of-buffer-other-window (arg)
  "Move point to the beginning of the buffer in the other window.
Leave mark at previous position.
With arg N, put point N/10 of the way from the true beginning."

			(and parse-sexp-ignore-comments
			     (not blink-matching-paren-dont-ignore-comments))))
		   (setq blinkpos (scan-sexps oldpos -1)))
	       (error nil)))
	   (and blinkpos
                ;; Not syntax '$'.
		(not (eq (syntax-class (syntax-after blinkpos)) 8))
		(setq matching-paren
		      (let ((syntax (syntax-after blinkpos)))
			(and (consp syntax)
			     (eq (syntax-class syntax) 4)
			     (cdr syntax)))
		      mismatch
		      (or (null matching-paren)
			  (/= (char-after (1- oldpos))
			      matching-paren))))

  (if (fboundp 'kmacro-keyboard-quit)
      (kmacro-keyboard-quit))
  (setq defining-kbd-macro nil)
  (signal 'quit nil))

(defvar buffer-quit-function nil
  "Function to call to \"quit\" the current buffer, or nil if none.
\\[keyboard-escape-quit] calls this function when its more local actions
\(such as cancelling a prefix argument, minibuffer or region) do not apply.")

    (if device
	(plist-put sound :device device))
    (push 'sound sound)
    (play-sound sound)))


(defcustom read-mail-command 'rmail
  "*Your preference for a mail reading package.
This is used by some keybindings which support reading mail.
See also `mail-user-agent' concerning sending mail."

  (interactive "bClone buffer in other window: ")
  (let ((pop-up-windows t))
    (set-buffer buffer)
    (clone-indirect-buffer nil t norecord)))


;;; Handling of Backspace and Delete keys.

(defcustom normal-erase-is-backspace
  (and (not noninteractive)