Mercurial > emacs

changeset 51643:3161ec452b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(easy-mmode-define-navigation): Avoid variable as format argument for error. Don't call symbol-name on string.
author Andreas Schwab <schwab@suse.de>
date Sun, 22 Jun 2003 16:55:47 +0000
parents 17d4cef02d9b
children c0fa3bd7969d
files lisp/emacs-lisp/easy-mmode.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/easy-mmode.el	Sun Jun 22 16:52:45 2003 +0000
+++ b/lisp/emacs-lisp/easy-mmode.el	Sun Jun 22 16:55:47 2003 +0000
@@ -431,7 +431,7 @@
   (let* ((base-name (symbol-name base))
 	 (prev-sym (intern (concat base-name "-prev")))
 	 (next-sym (intern (concat base-name "-next"))))
-    (unless name (setq name (symbol-name base-name)))
+    (unless name (setq name base-name))
     `(progn
        (add-to-list 'debug-ignored-errors
 		    ,(concat "^No \\(previous\\|next\\) " (regexp-quote name)))
@@ -444,7 +444,7 @@
 	   (if (not (re-search-forward ,re nil t count))
 	       (if (looking-at ,re)
 		   (goto-char (or ,(if endfun `(,endfun)) (point-max)))
-		 (error ,(format "No next %s" name)))
+		 (error "No next %s" ,name))
 	     (goto-char (match-beginning 0))
 	     (when (and (eq (current-buffer) (window-buffer (selected-window)))
 			(interactive-p))
@@ -460,7 +460,7 @@
 	 (unless count (setq count 1))
 	 (if (< count 0) (,next-sym (- count))
 	   (unless (re-search-backward ,re nil t count)
-	     (error ,(format "No previous %s" name))))))))
+	     (error "No previous %s" ,name)))))))
 
 (provide 'easy-mmode)