[Emacs-diffs] Changes to emacs/lisp/wid-edit.el

[Eli Zaretskii]

Index: emacs/lisp/wid-edit.el
diff -c emacs/lisp/wid-edit.el:1.130 emacs/lisp/wid-edit.el:1.131
*** emacs/lisp/wid-edit.el:1.130        Sun Aug  8 19:35:15 2004
--- emacs/lisp/wid-edit.el      Sat Nov 27 12:50:34 2004
***************
*** 1085,1098 ****
    :type 'function
    :group 'widgets)
  
  (defun widget-complete ()
    "Complete content of editable field from point.
  When not inside a field, move to the previous button or field."
    (interactive)
    (let ((field (widget-field-find (point))))
      (if field
!       (widget-apply field :complete)
!       (error "Not in an editable field"))))
  
  ;;; Setting up the buffer.
  
--- 1085,1107 ----
    :type 'function
    :group 'widgets)
  
+ (defun widget-narrow-to-field ()
+   "Narrow to field"
+   (interactive)
+   (let ((field (widget-field-find (point))))
+     (if field
+       (narrow-to-region (line-beginning-position) (line-end-position)))))
+ 
  (defun widget-complete ()
    "Complete content of editable field from point.
  When not inside a field, move to the previous button or field."
    (interactive)
    (let ((field (widget-field-find (point))))
      (if field
!       (save-restriction
!         (widget-narrow-to-field)
!         (widget-apply field :complete))
!         (error "Not in an editable field"))))
  
  ;;; Setting up the buffer.