Mercurial > emacs
comparison lisp/emulation/pc-select.el @ 85686:a55a536ce0db
* emulation/pc-select.el (next-line-mark, next-line-nomark)
(previous-line-mark, previous-line-nomark): Wrap with-no-warnings
around uses of previous-line and next-line.
* diff.el (diff-old-file, diff-new-file, diff-extra-args): New
defvars.
* textmodes/css-mode.el (comment-continue):
* net/browse-url.el (url-handler-regexp):
* progmodes/idlw-help.el (idlwave-system-routines): Pacify
byte-compiler.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Fri, 26 Oct 2007 22:24:14 +0000 |
parents | ac0efac52065 |
children | 39b88001b04b 4bc33ffdda1a |
comparison
equal
deleted
inserted
replaced
85685:1989e8bb5c7b | 85686:a55a536ce0db |
---|---|
349 a semipermanent goal column to which this command always moves. | 349 a semipermanent goal column to which this command always moves. |
350 Then it does not try to move vertically. This goal column is stored | 350 Then it does not try to move vertically. This goal column is stored |
351 in `goal-column', which is nil when there is none." | 351 in `goal-column', which is nil when there is none." |
352 (interactive "p") | 352 (interactive "p") |
353 (ensure-mark) | 353 (ensure-mark) |
354 (next-line arg) | 354 (with-no-warnings (next-line arg)) |
355 (setq this-command 'next-line)) | 355 (setq this-command 'next-line)) |
356 | 356 |
357 (defun end-of-line-mark (&optional arg) | 357 (defun end-of-line-mark (&optional arg) |
358 "Ensure mark is active; move point to end of current line. | 358 "Ensure mark is active; move point to end of current line. |
359 With argument ARG not nil or 1, move forward ARG - 1 lines first. | 359 With argument ARG not nil or 1, move forward ARG - 1 lines first. |
482 a semipermanent goal column to which this command always moves. | 482 a semipermanent goal column to which this command always moves. |
483 Then it does not try to move vertically. This goal column is stored | 483 Then it does not try to move vertically. This goal column is stored |
484 in `goal-column', which is nil when there is none." | 484 in `goal-column', which is nil when there is none." |
485 (interactive "p") | 485 (interactive "p") |
486 (setq mark-active nil) | 486 (setq mark-active nil) |
487 (next-line arg) | 487 (with-no-warnings (next-line arg)) |
488 (setq this-command 'next-line)) | 488 (setq this-command 'next-line)) |
489 | 489 |
490 (defun end-of-line-nomark (&optional arg) | 490 (defun end-of-line-nomark (&optional arg) |
491 "Deactivate mark; move point to end of current line. | 491 "Deactivate mark; move point to end of current line. |
492 With argument ARG not nil or 1, move forward ARG - 1 lines first. | 492 With argument ARG not nil or 1, move forward ARG - 1 lines first. |
607 If you are thinking of using this in a Lisp program, consider using | 607 If you are thinking of using this in a Lisp program, consider using |
608 `forward-line' with a negative argument instead. It is usually easier | 608 `forward-line' with a negative argument instead. It is usually easier |
609 to use and more reliable (no dependence on goal column, etc.)." | 609 to use and more reliable (no dependence on goal column, etc.)." |
610 (interactive "p") | 610 (interactive "p") |
611 (ensure-mark) | 611 (ensure-mark) |
612 (previous-line arg) | 612 (with-no-warnings (previous-line arg)) |
613 (setq this-command 'previous-line)) | 613 (setq this-command 'previous-line)) |
614 | 614 |
615 (defun beginning-of-line-mark (&optional arg) | 615 (defun beginning-of-line-mark (&optional arg) |
616 "Ensure mark is active; move point to beginning of current line. | 616 "Ensure mark is active; move point to beginning of current line. |
617 With argument ARG not nil or 1, move forward ARG - 1 lines first. | 617 With argument ARG not nil or 1, move forward ARG - 1 lines first. |
705 The command \\[set-goal-column] can be used to create | 705 The command \\[set-goal-column] can be used to create |
706 a semipermanent goal column to which this command always moves. | 706 a semipermanent goal column to which this command always moves. |
707 Then it does not try to move vertically." | 707 Then it does not try to move vertically." |
708 (interactive "p") | 708 (interactive "p") |
709 (setq mark-active nil) | 709 (setq mark-active nil) |
710 (previous-line arg) | 710 (with-no-warnings (previous-line arg)) |
711 (setq this-command 'previous-line)) | 711 (setq this-command 'previous-line)) |
712 | 712 |
713 (defun beginning-of-line-nomark (&optional arg) | 713 (defun beginning-of-line-nomark (&optional arg) |
714 "Deactivate mark; move point to beginning of current line. | 714 "Deactivate mark; move point to beginning of current line. |
715 With argument ARG not nil or 1, move forward ARG - 1 lines first. | 715 With argument ARG not nil or 1, move forward ARG - 1 lines first. |