From: Karl Heuer Date: Wed, 17 Jul 1996 21:13:24 +0000 (+0000) Subject: (vip-get-filenames-from-buffer): Add &optional. X-Git-Tag: emacs-19.34~134 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ffb7fd7c7f5bd2800a471e3d2ae28ed857f1f178;p=emacs.git (vip-get-filenames-from-buffer): Add &optional. --- diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el index 33f9dfc0c35..7cc64938254 100644 --- a/lisp/emulation/viper-util.el +++ b/lisp/emulation/viper-util.el @@ -478,7 +478,7 @@ to write a custom function, similar to `vip-ex-nontrivial-find-file-unix'." ;; return a list of file names listed in the buffer beginning at point ;; If optional arg is supplied, assume each filename is listed on a separate ;; line -(defun vip-get-filenames-from-buffer (one-per-line) +(defun vip-get-filenames-from-buffer (&optional one-per-line) (let ((skip-chars (if one-per-line "\t\n" " \t\n")) result fname delim) (skip-chars-forward skip-chars)