Add a utility function buffer-narrowed-p, and use it.

* lisp/subr.el (buffer-narrowed-p): New function.

* lisp/ses.el (ses-widen):
* lisp/simple.el (count-words--buffer-message):
* lisp/net/browse-url.el (browse-url-of-buffer): Use it

* lisp/simple.el (count-words-region): Don't signal an error if there
is a non-nil prefix arg and the mark is not set.

* doc/lispref/positions.texi (Narrowing): Document buffer-narrowed-p.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 20d71215926..d1d33bfe566 100644
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -743,7 +743,7 @@ narrowed."
     (and buffer (set-buffer buffer))
     (let ((file-name
            ;; Ignore real name if restricted
-           (and (= (- (point-max) (point-min)) (buffer-size))
+           (and (not (buffer-narrowed-p))
                 (or buffer-file-name
                     (and (boundp 'dired-directory) dired-directory)))))
       (or file-name