From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: Re: Key binding M-g should really be goto-line autolearn=noversion=3.0.2 autolearn=no version=3.0.2 Date: Fri, 04 Mar 2005 18:45:32 -0500 Message-ID: References: Reply-To: rms@gnu.org NNTP-Posting-Host: main.gmane.org X-Trace: sea.gmane.org 1109981321 16184 80.91.229.2 (5 Mar 2005 00:08:41 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 5 Mar 2005 00:08:41 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Mar 05 01:08:40 2005 Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1D7Mpp-0001fx-HL for ged-emacs-devel@m.gmane.org; Sat, 05 Mar 2005 01:07:58 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1D7N95-0005Gf-Iy for ged-emacs-devel@m.gmane.org; Fri, 04 Mar 2005 19:27:51 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1D7N1N-0008QM-IU for emacs-devel@gnu.org; Fri, 04 Mar 2005 19:19:53 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1D7N1L-0008PE-F8 for emacs-devel@gnu.org; Fri, 04 Mar 2005 19:19:51 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1D7N0g-0007MB-Bx for emacs-devel@gnu.org; Fri, 04 Mar 2005 19:19:10 -0500 Original-Received: from [199.232.76.164] (helo=fencepost.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.34) id 1D7MUf-0006hp-Pz for emacs-devel@gnu.org; Fri, 04 Mar 2005 18:46:05 -0500 Original-Received: from rms by fencepost.gnu.org with local (Exim 4.34) id 1D7MU8-0002ND-Rz; Fri, 04 Mar 2005 18:45:32 -0500 Original-To: Kevin Rodgers In-reply-to: (message from Kevin Rodgers on Thu, 03 Mar 2005 14:18:00 -0700) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org X-MailScanner-To: ged-emacs-devel@m.gmane.org Xref: main.gmane.org gmane.emacs.devel:34195 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:34195 How about making goto-line suggest the number at point as its default argument? (defun goto-line (arg &optional buffer) "Goto line ARG, counting from line 1 at beginning of buffer. With just C-u as argument, move point in the most recently displayed other buffer, and display it." (interactive (if (and current-prefix-arg (not (consp current-prefix-arg))) (list (prefix-numeric-value current-prefix-arg)) ;; Look for a default, a number in the buffer at point. (let ((default (save-excursion (skip-chars-backward "0-9") (if (looking-at "[0-9]") (buffer-substring-no-properties (point) (progn (skip-chars-forward "0-9") (point))))))) ;; Read the argument, offering that number (if any) default. (list (read-from-minibuffer (format "Goto line (%s): " default) nil nil t 'minibuffer-history default) (if (consp current-prefix-arg) (other-buffer (current-buffer) t)))))) (with-current-buffer (or buffer (current-buffer)) (save-restriction (widen) (goto-char 1) (if (eq selective-display t) (re-search-forward "[\n\C-m]" nil 'end (1- arg)) (forward-line (1- arg))) (if buffer (let ((window (get-buffer-window buffer))) (if window (set-window-point window (point)) (display-buffer buffer)))))))