Show
Ignore:
Timestamp:
05/27/06 10:35:24 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/simple.el

    r4079 r4091  
    25502550specifies the yank-handler text property to be set on the killed 
    25512551text.  See `insert-for-yank'." 
    2552   (interactive "r") 
     2552  ;; Pass point first, then mark, because the order matters 
     2553  ;; when calling kill-append. 
     2554  (interactive (list (point) (mark))) 
    25532555  (condition-case nil 
    25542556      (let ((string (filter-buffer-substring beg end t))) 
    …… 
    36443646 
    36453647        ;; Process intangibility within a line. 
    3646         ;; Move to the chosen destination position from above, 
    3647         ;; with intangibility processing enabled. 
    3648  
    3649         ;; Avoid calling point-entered and point-left. 
     3648        ;; With inhibit-point-motion-hooks bound to nil, a call to 
     3649        ;; goto-char moves point past intangible text. 
     3650 
     3651        ;; However, inhibit-point-motion-hooks controls both the 
     3652        ;; intangibility and the point-entered/point-left hooks.  The 
     3653        ;; following hack avoids calling the point-* hooks 
     3654        ;; unnecessarily.  Note that we move *forward* past intangible 
     3655        ;; text when the initial and final points are the same. 
    36503656        (goto-char new) 
    36513657        (let ((inhibit-point-motion-hooks nil)) 
    …… 
    42424248(defvaralias 'default-indicate-unused-lines 'default-indicate-empty-lines) 
    42434249 
    4244 (defun toggle-truncate-lines (arg) 
     4250(defun toggle-truncate-lines (&optional arg) 
    42454251  "Toggle whether to fold or truncate long lines on the screen. 
    42464252With arg, truncate long lines iff arg is positive.