/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.551.2.17 by miles, Tue Jul 6 09:47:53 2004 UTC revision 1.551.2.18 by miles, Tue Jul 6 10:00:04 2004 UTC
# Line 37  Line 37 
37    
38    
39  (defgroup killing nil  (defgroup killing nil
40    "Killing and yanking commands"    "Killing and yanking commands."
41    :group 'editing)    :group 'editing)
42    
43  (defgroup paren-matching nil  (defgroup paren-matching nil
# Line 133  to navigate in it.") Line 133  to navigate in it.")
133                        (if other-buffer                        (if other-buffer
134                            (message "This is the only next-error capable buffer."))                            (message "This is the only next-error capable buffer."))
135                        (current-buffer)))                        (current-buffer)))
136                 (error "No next-error capable buffer found!"))))))))                 (error "No next-error capable buffer found"))))))))
137    
138  (defun next-error (arg &optional reset)  (defun next-error (arg &optional reset)
139    "Visit next next-error message and corresponding source code.    "Visit next next-error message and corresponding source code.
# Line 791  Return a formatted string which is displ Line 791  Return a formatted string which is displ
791  in addition to the value printed by prin1 in functions which  in addition to the value printed by prin1 in functions which
792  display the result of expression evaluation."  display the result of expression evaluation."
793    (if (and (integerp value)    (if (and (integerp value)
794             (or (not (eq this-command 'eval-last-sexp))             (or (not (memq this-command '(eval-last-sexp eval-print-last-sexp)))
795                 (eq this-command last-command)                 (eq this-command last-command)
796                 (and (boundp 'edebug-active) edebug-active)))                 (and (boundp 'edebug-active) edebug-active)))
797        (let ((char-string        (let ((char-string
798               (if (or (and (boundp 'edebug-active) edebug-active)               (if (or (and (boundp 'edebug-active) edebug-active)
799                       (eq this-command 'eval-last-sexp))                       (memq this-command '(eval-last-sexp eval-print-last-sexp)))
800                   (prin1-char value))))                   (prin1-char value))))
801          (if char-string          (if char-string
802              (format " (0%o, 0x%x) = %s" value value char-string)              (format " (0%o, 0x%x) = %s" value value char-string)
# Line 2220  The argument is used for internal purpos Line 2220  The argument is used for internal purpos
2220  The value should be a list of text properties to discard or t,  The value should be a list of text properties to discard or t,
2221  which means to discard all text properties."  which means to discard all text properties."
2222    :type '(choice (const :tag "All" t) (repeat symbol))    :type '(choice (const :tag "All" t) (repeat symbol))
2223    :group 'editing    :group 'killing
2224    :version "21.4")    :version "21.4")
2225    
2226  (defvar yank-window-start nil)  (defvar yank-window-start nil)

Legend:
Removed from v.1.551.2.17  
changed lines
  Added in v.1.551.2.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26