[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/simple.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/simple.el [lexbind] |
Date: |
Tue, 06 Jul 2004 07:09:25 -0400 |
Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.551.2.17 emacs/lisp/simple.el:1.551.2.18
*** emacs/lisp/simple.el:1.551.2.17 Tue Jul 6 09:47:53 2004
--- emacs/lisp/simple.el Tue Jul 6 10:00:04 2004
***************
*** 37,43 ****
(defgroup killing nil
! "Killing and yanking commands"
:group 'editing)
(defgroup paren-matching nil
--- 37,43 ----
(defgroup killing nil
! "Killing and yanking commands."
:group 'editing)
(defgroup paren-matching nil
***************
*** 133,139 ****
(if other-buffer
(message "This is the only next-error capable
buffer."))
(current-buffer)))
! (error "No next-error capable buffer found!"))))))))
(defun next-error (arg &optional reset)
"Visit next next-error message and corresponding source code.
--- 133,139 ----
(if other-buffer
(message "This is the only next-error capable
buffer."))
(current-buffer)))
! (error "No next-error capable buffer found"))))))))
(defun next-error (arg &optional reset)
"Visit next next-error message and corresponding source code.
***************
*** 791,802 ****
in addition to the value printed by prin1 in functions which
display the result of expression evaluation."
(if (and (integerp value)
! (or (not (eq this-command 'eval-last-sexp))
(eq this-command last-command)
(and (boundp 'edebug-active) edebug-active)))
(let ((char-string
(if (or (and (boundp 'edebug-active) edebug-active)
! (eq this-command 'eval-last-sexp))
(prin1-char value))))
(if char-string
(format " (0%o, 0x%x) = %s" value value char-string)
--- 791,802 ----
in addition to the value printed by prin1 in functions which
display the result of expression evaluation."
(if (and (integerp value)
! (or (not (memq this-command '(eval-last-sexp
eval-print-last-sexp)))
(eq this-command last-command)
(and (boundp 'edebug-active) edebug-active)))
(let ((char-string
(if (or (and (boundp 'edebug-active) edebug-active)
! (memq this-command '(eval-last-sexp
eval-print-last-sexp)))
(prin1-char value))))
(if char-string
(format " (0%o, 0x%x) = %s" value value char-string)
***************
*** 2220,2226 ****
The value should be a list of text properties to discard or t,
which means to discard all text properties."
:type '(choice (const :tag "All" t) (repeat symbol))
! :group 'editing
:version "21.4")
(defvar yank-window-start nil)
--- 2220,2226 ----
The value should be a list of text properties to discard or t,
which means to discard all text properties."
:type '(choice (const :tag "All" t) (repeat symbol))
! :group 'killing
:version "21.4")
(defvar yank-window-start nil)
- [Emacs-diffs] Changes to emacs/lisp/simple.el [lexbind], Miles Bader, 2004/07/06
- [Emacs-diffs] Changes to emacs/lisp/simple.el [lexbind], Miles Bader, 2004/07/06
- [Emacs-diffs] Changes to emacs/lisp/simple.el [lexbind], Miles Bader, 2004/07/06
- [Emacs-diffs] Changes to emacs/lisp/simple.el [lexbind],
Miles Bader <=
- [Emacs-diffs] Changes to emacs/lisp/simple.el [lexbind], Miles Bader, 2004/07/06
- [Emacs-diffs] Changes to emacs/lisp/simple.el [lexbind], Miles Bader, 2004/07/16
- [Emacs-diffs] Changes to emacs/lisp/simple.el [lexbind], Miles Bader, 2004/07/23