Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents a300bb07d72d
children 6719134a07c2
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
431 ;; XEmacs: In overwrite mode, back over columns while clearing them out, 431 ;; XEmacs: In overwrite mode, back over columns while clearing them out,
432 ;; unless at end of line. 432 ;; unless at end of line.
433 (and overwrite-mode (not (eolp)) 433 (and overwrite-mode (not (eolp))
434 (save-excursion (insert-char ?\ arg)))) 434 (save-excursion (insert-char ?\ arg))))
435 435
436 (defcustom delete-key-deletes-forward nil 436 (defcustom delete-key-deletes-forward t
437 "*If non-nil, the DEL key will erase one character forwards. 437 "*If non-nil, the DEL key will erase one character forwards.
438 If nil, the DEL key will erase one character backwards." 438 If nil, the DEL key will erase one character backwards."
439 :type 'boolean 439 :type 'boolean
440 :group 'editing-basics) 440 :group 'editing-basics)
441 441
2367 (lmessage 'command "Comment column set to %d" comment-column)))) 2367 (lmessage 'command "Comment column set to %d" comment-column))))
2368 2368
2369 (defun kill-comment (arg) 2369 (defun kill-comment (arg)
2370 "Kill the comment on this line, if any. 2370 "Kill the comment on this line, if any.
2371 With argument, kill comments on that many lines starting with this one." 2371 With argument, kill comments on that many lines starting with this one."
2372 ;; this function loses in a lot of situations. it incorrectly recognises 2372 ;; this function loses in a lot of situations. it incorrectly recognizes
2373 ;; comment delimiters sometimes (ergo, inside a string), doesn't work 2373 ;; comment delimiters sometimes (ergo, inside a string), doesn't work
2374 ;; with multi-line comments, can kill extra whitespace if comment wasn't 2374 ;; with multi-line comments, can kill extra whitespace if comment wasn't
2375 ;; through end-of-line, et cetera. 2375 ;; through end-of-line, et cetera.
2376 (interactive "*P") 2376 (interactive "*P")
2377 (or comment-start-skip (error "No comment syntax defined")) 2377 (or comment-start-skip (error "No comment syntax defined"))