[Emacs-diffs] trunk r116225: Make shr-generic into a defsusbt to make the stack shallower

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 116225
revision-id: address@hidden
parent: address@hidden
committer: Lars Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Fri 2014-01-31 13:08:13 -0800
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/shr.el                shr.el-20101002102929-yfzewk55rsg0mn93-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-01-31 17:13:49 +0000
+++ b/lisp/ChangeLog    2014-01-31 21:08:13 +0000
@@ -1,3 +1,8 @@
+2014-01-31  Lars Ingebrigtsen  <address@hidden>
+
+       * net/shr.el (shr-generic): Make into a defsubst to make the stack
+       depth shallower (bug#16587).
+
 2014-01-31  Dmitry Gutov  <address@hidden>
 
        * progmodes/ruby-mode.el (ruby-align-chained-calls): New option.

=== modified file 'lisp/net/shr.el'
--- a/lisp/net/shr.el   2014-01-25 00:52:16 +0000
+++ b/lisp/net/shr.el   2014-01-31 21:08:13 +0000
@@ -359,6 +359,14 @@
        (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 @@
                             (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))