From 2578be761919506dd52833833f58b2c5b35d7f48 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 25 Aug 1995 14:16:26 +0000 Subject: [PATCH] (what-line): Print narrowed linenum with full buffer num. --- lisp/simple.el | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 5699b1d3503..ea27a5bf460 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -372,14 +372,23 @@ that uses or sets the mark." (count-lines start end) (- end start))) (defun what-line () - "Print the current line number (in the buffer) of point." + "Print the current buffer line number and narrowed line number of point." (interactive) - (save-restriction - (widen) + (let ((opoint (point)) start) (save-excursion - (beginning-of-line) - (message "Line %d" - (1+ (count-lines 1 (point))))))) + (save-restriction + (goto-char (point-min)) + (widen) + (beginning-of-line) + (setq start (point)) + (goto-char opoint) + (beginning-of-line) + (if (/= start 1) + (message "line %d (narrowed line %d)" + (1+ (count-lines 1 (point))) + (1+ (count-lines start (point)))) + (message "Line %d" (1+ (count-lines 1 (point))))))))) + (defun count-lines (start end) "Return number of lines between START and END. -- 2.39.2