procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(easy-mmode-define-navigation): Avoid

Browse source 
variable as format argument for error.  Don't call symbol-name on
string.
This commit is contained in:
Andreas Schwab 2003-06-22 16:55:47 +00:00
parent c009ca06ed
commit 8fd9bef258
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/easy-mmode.el
View file

@ -431,7 +431,7 @@ ENDFUN should return the end position (with or without moving point)."
(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 @@ ENDFUN should return the end position (with or without moving point)."
(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 @@ ENDFUN should return the end position (with or without moving point)."
(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)