Make shr-generic into a defsusbt to make the stack shallower

* net/shr.el (shr-generic): Make into a defsubst to make the stack
depth shallower.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 90c00963ad4d02b33aa10a640861e42530556ed8..9b7e338e187dd42e567a69a9b13a67dcfa097394 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-01-31  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * net/shr.el (shr-generic): Make into a defsubst to make the stack
+       depth shallower (bug#16587).
+
 2014-01-31  Dmitry Gutov  <dgutov@yandex.ru>
 
        * progmodes/ruby-mode.el (ruby-align-chained-calls): New option.

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 1491512087d668afb1b86f1f7c6d7d17ace4c21d..dba0f71bfe180e5b3215f798ff798ef8f92dda9b 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -359,6 +359,14 @@ size, and full-buffer size."
        (push (shr-transform-dom sub) result)))
     (nreverse result)))
 
+(defsubst shr-generic (cont)
+  (dolist (sub cont)
+    (cond
+     ((eq (car sub) 'text)
+      (shr-insert (cdr sub)))
+     ((listp (cdr sub))
+      (shr-descend sub)))))
+
 (defun shr-descend (dom)
   (let ((function
         (or
@@ -392,14 +400,6 @@ size, and full-buffer size."
                             (cdr (assq 'color shr-stylesheet))
                             (cdr (assq 'background-color shr-stylesheet)))))))
 
-(defun shr-generic (cont)
-  (dolist (sub cont)
-    (cond
-     ((eq (car sub) 'text)
-      (shr-insert (cdr sub)))
-     ((listp (cdr sub))
-      (shr-descend sub)))))
-
 (defmacro shr-char-breakable-p (char)
   "Return non-nil if a line can be broken before and after CHAR."
   `(aref fill-find-break-point-function-table ,char))